[Haskell-cafe] Help optimising a Haskell program