add bst in haskell