[Haskell-beginners] Decomposing recursion