archetype
module type OrderedType = Map.OrderedType
module Make (S : OrderedType) : sig ... end