sig
  type 'a elt
  type doc
  type out
  val print_list :
    ?encode:(string -> string) ->
    'XML_sigs.TypedPrinter.elt list -> XML_sigs.TypedPrinter.out
  val print :
    ?encode:(string -> string) ->
    ?advert:string -> XML_sigs.TypedPrinter.doc -> XML_sigs.TypedPrinter.out
end