[Haskell-cafe] Better versions of this code