Xml_sigs.Simple_printer
type xml_elt
val print_list : output:(string -> unit) -> ?encode:(string -> string) -> xml_elt list -> unit