module type BST = sig .. end
sig
end
include Binary_search_tree.BSTPassThruFields
val find : t -> comparable -> bool
t -> comparable -> bool
val height : t -> int
t -> int
val string_of_tree : t -> string
t -> string