data Fruit = Apple | Banana | Cherry deriving Enum