module type InputBST = sig .. end
sig
end
include Binary_search_tree.BSTPassThruFields
val left : t -> t
t -> t
val right : t -> t
val value : t -> comparable
t -> comparable