Functor Xml_print.Make_typed

module Make_typed: 
functor (Xml : Xml_sigs.Iterable) -> 
functor (Typed_xml : Xml_sigs.Typed_xml  with module Xml := Xml) -> 
functor (O : Xml_sigs.Output) -> Xml_sigs.Typed_printer  with type out := O.out
                              and type 'a elt := 'a Typed_xml.elt
                              and type doc := Typed_xml.doc

type 'a elt 

type doc 

type out 

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

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