[Haskell-cafe] Is my code too complicated?