[Haskell-beginners] function nesting again