Simple tree in haskell