RosettaCodeData/Task/First-class-environments/Haskell/first-class-environments-2.hs

data Environment = Environment { count :: Int, value :: Int }
                 deriving Eq