1{-# LANGUAGE GADTs #-} 2 3data CmmNode e x where 4 CmmEntry :: {-# UNPACK #-} !Int -> CmmNode e x 5 6data UI = UI {-# UNPACK #-} !Int 7