sig   type t   val fprint : string -> Format.formatter -> Printer.S.t -> unit   val print : string -> Printer.S.t -> unit   val dprint : Printer.S.t -> unit   val sprint : string -> Printer.S.t -> string   val to_string : Printer.S.t -> string   val from_fstring : string -> string -> Printer.S.t   val from_string : string -> Printer.S.t end