functor
(
P
:
sig
val
printer : unit
->
Printer_api
.extensible_printer_type
end
)
->
Printer_api
.
S_pp