[Haskell-beginners] Function nesting