functor (O : Xml_sigs.Output) -> sig val print_list : ?encode:(string -> string) -> 'a M.elt list -> O.out val print : ?encode:(string -> string) -> ?advert:string -> M.doc -> O.out end