1 2 3 4 5 6 7
module Constant where data Constant = Atom Int | Number Int | Str String deriving (Show, Eq, Ord)