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