Binary search tree in haskell.