Parameter MakeMapPrinter.Map

type key
type 'a t
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b