[Haskell-cafe] Optimizing a hash function