Tm Donuts Map, Haskell