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