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