sig
  exception Lex_error of string
  type txt = string
  type cdata = string
  type qname = { pfx : Yaxpo.txt; local : Yaxpo.txt; }
  type att = { att_name : Yaxpo.qname; mutable att_value : Yaxpo.txt; }
  val string_of_qname : Yaxpo.qname -> string
  val string_of_att : Yaxpo.att -> string
  type xml_token =
      Tok_text of Yaxpo.txt
    | Tok_cdata of Yaxpo.cdata
    | Tok_start_tag of Yaxpo.qname * Yaxpo.att list
    | Tok_empty_ele of Yaxpo.qname * Yaxpo.att list
    | Tok_end_tag of Yaxpo.qname
    | Tok_comment of Yaxpo.txt
    | Tok_pi of Yaxpo.txt * Yaxpo.txt
  exception Parse_error of string * Yaxpo.xml_token option
  val pull_next_token : #Cps_reader.t -> (Yaxpo.xml_token -> unit) -> unit
end