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