1 2 3 4 5 6 7 8
module T11311 where import Data.Kind foo :: () foo = (id :: * -> *) undefined `seq` () main = print foo