functor (Typed_xml : Xml_sigs_duce.Typed_xml->
  sig
    type elt = Typed_xml.elt
    type doc = Typed_xml.doc
    val print_list :
      output:(string -> unit) ->
      ?encode:(string -> string) -> elt list -> unit
    val print :
      output:(string -> unit) ->
      ?encode:(string -> string) -> ?advert:string -> doc -> unit
  end