[Haskell-cafe] Optimization fun