[Haskell-cafe] How to name a mapped function?