Pizza One Map, Haskell