[Haskell-cafe] How To Make It Faster?