sig   val symbol_start : unit -> int   val symbol_end : unit -> int   val rhs_start : int -> int   val rhs_end : int -> int   val symbol_start_pos : unit -> Lexing.position   val symbol_end_pos : unit -> Lexing.position   val rhs_start_pos : int -> Lexing.position   val rhs_end_pos : int -> Lexing.position   val clear_parser : unit -> unit   exception Parse_error   val set_trace : bool -> bool   type parser_env   type parse_tables = {     actions : (Parsing.parser_env -> Obj.t) array;     transl_const : int array;     transl_block : int array;     lhs : string;     len : string;     defred : string;     dgoto : string;     sindex : string;     rindex : string;     gindex : string;     tablesize : int;     table : string;     check : string;     error_function : string -> unit;     names_const : string;     names_block : string;   }   exception YYexit of Obj.t   val yyparse :     Parsing.parse_tables ->     int -> (Lexing.lexbuf -> 'a) -> Lexing.lexbuf -> 'b   val peek_val : Parsing.parser_env -> int -> 'a   val is_current_lookahead : 'a -> bool   val parse_error : string -> unit end