RosettaCodeData/Task/Boolean-values/Haskell/boolean-values.hs

data Bool = False | True    deriving (Eq, Ord, Enum, Read, Show, Bounded)