exception NoOpenNonEmptyElements val reset_output : string -> unit val output : Xml.token Stream.t -> unit val open_non_empty_element : string -> (string * string) list -> unit val close_non_empty_element : unit -> unit val print_output : unit -> unit