sig
  type 'a elt
  type doc
  val print_list :
    output:(string -> unit) ->
    ?encode:(string -> string) ->
    'Xml_sigs.Typed_simple_printer.elt list -> unit
  val print :
    output:(string -> unit) ->
    ?encode:(string -> string) ->
    ?advert:string -> Xml_sigs.Typed_simple_printer.doc -> unit
end