[Haskell-beginners] Pattern matching on binary trees