[Haskell-cafe] Why was this function that fast ?