[Haskell-cafe] Trouble with function with two clauses