[Haskell-beginners] A tree code