module type Comparable =sig..end
type t
val compare : t -> t -> intcompare a b is zero if a equals b and
is strictly negative (resp. positive) if a is smaller (resp. greater)
than b. In most cases, Pervasives.compare will do.val avg : t -> t -> t
This is used to split the tree between two values. The only important thing
is that, if a < b, a <= avg a b < b.