[Haskell-cafe] How to do this in Haskell