data XXX = AA|BB|CC|DD deriving (Enum, Show)