type simple = (unit, Stdlib.Format.formatter, unit) Stdlib.formattype ('a, 'b) func =
('a, Stdlib.Format.formatter, unit, 'b) Stdlib.format4 ->
'atype 'a proc = ('a, Stdlib.Format.formatter, unit) Stdlib.format -> 'atype 'a printer = Stdlib.Format.formatter -> 'a -> unit