functor
  (Xml : Xml_sigs.Iterable) (F : sig val emptytags : string list end->
  sig
    val print_list :
      output:(string -> unit) ->
      ?encode:(string -> string) -> Xml.elt list -> unit
  end