functor
(
P
:
sig
class
printer : unit
->
Printer_api
.extensible_printer_type
end
)
->
Printer_api
.
S