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

Parameters:

`Xml`	:	`Xml_sigs.Iterable`
`I`	:	`sig val emptytags : string list end`
`O`	:	`Xml_sigs.Output`

type xml_elt

type out

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