Some tree haskell