Leftist Heaps
Implementation following Okasaki's book.
type 'a iter = ('a -> unit) -> unittype 'a gen = unit -> 'a optiontype 'a ktree = unit -> [ `Nil | `Node of 'a * 'a ktree list ]type 'a printer = Stdlib.Format.formatter -> 'a -> unitmodule type S = sig ... endA convenient version of Make that take a TOTAL_ORD instead of a partially ordered module. It allow to directly pass modules that implement compare without implementing leq explicitly