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