sig
  type t
  val pp_with : string -> Interfaces.PRINT_OVERLOAD.t CCFormat.printer
  val add_printer :
    string -> Interfaces.PRINT_OVERLOAD.t CCFormat.printer -> unit
  val set_default_printer : string -> unit
end