Colour

-- | Practice with Data types

data Colour = Brown | Red | White | Black deriving (Enum)

instance Show Colour where
    show Brown = "Brown"
    show Red = "Red"
    show White = "White"
    show Black = "Black"