impl bst.hs