functor
  (Xml : Xml_sigs.Iterable) (I : sig val emptytags : string list end) (O : Xml_sigs.Output->
  sig
    val print_list : ?encode:(string -> string) -> Xml.elt list -> O.out
  end