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