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

process (Environment c 1) = Environment c 1
process (Environment c n) = Environment (c+1) (hailstone n)