Xml_sigs.Typed_simple_printer
type 'a elt
type doc
val print_list : output:(string -> unit) -> ?encode:(string -> string) -> 'a elt list -> unit
val print : output:(string -> unit) -> ?encode:(string -> string) -> ?advert:string -> doc -> unit