Haskell on EDX - week 5. Recursive functions