Some tests with Trees in haskell