type token = | ATOM of string| LIST_OPEN| LIST_CLOSE| EOI
exception Error of int * int * stringtype unescape_state = | Not_escaped| Escaped| Escaped_int_1 of int| Escaped_int_2 of int
val char_equal : char -> char -> boolval __ocaml_lex_tables : Lexing.lex_tables