1 2 3 4 5 6 7 8 9
{-# LANGUAGE DataKinds, PolyKinds #-} module KindLevels where data A data B :: A -> * data C :: B a -> * data D :: C b -> * data E :: D c -> *