adding haskell bst method