[Haskell-beginners] recursion problem.