Functor XML_print.Make

module Make: 
functor (XML : XML_sigs.Iterable) -> 
functor (I : sig
val emptytags : string list
end) -> 
functor (O : XML_sigs.Output) -> XML_sigs.Printer  with type out := O.out and type xml_elt := XML.elt

type xml_elt 

type out 

val print_list : ?encode:(string -> string) ->
       xml_elt list -> out