[Haskell-cafe] Optimization problem