[Haskell-cafe] recursion problem part 2