CCHeapImplementation following Okasaki's book.
type 'a ktree = unit -> [ `Nil | `Node of 'a * 'a ktree list ]type 'a printer = Format.formatter -> 'a -> unitmodule type PARTIAL_ORD = sig ... endmodule type TOTAL_ORD = sig ... endmodule type S = sig ... end