Functor Xml_print.Make_typed_simple

module Make_typed_simple (Xml : Xml_sigs.Iterable)  (Typed_xml : Xml_sigs.Typed_xml  with module Xml := Xml) : Xml_sigs.Typed_simple_printer  with type 'a elt := 'a Typed_xml.elt
                                   and type doc := Typed_xml.doc

type 'a elt 

type doc 

val print_list : output:(string -> unit) ->
       ?encode:(string -> string) ->
       'a elt list -> unit

val print : output:(string -> unit) ->
       ?encode:(string -> string) ->
       ?advert:string -> doc -> unit