[Haskell-beginners] Applicative on Tree