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.