Simple Binary tree in haskell.