Pizza One Haskell Map