functor (Xml : Xml_sigs.Iterable) (I : TagList->
  sig
    val pp :
      ?encode:(string -> string) ->
      ?indent:bool -> unit -> Format.formatter -> Xml.elt -> unit
  end