type token =
    INT of (int)
  | EOL

open Parsing
let yytransl_const = [|
  258 (* EOL *);
    0|]

let yytransl_block = [|
  257 (* INT *);
    0|]

let yylhs = "\255\255\
\001\000\001\000\002\000\000\000"

let yylen = "\002\000\
\002\000\001\000\001\000\002\000"

let yydefred = "\000\000\
\000\000\000\000\003\000\002\000\004\000\000\000\001\000"

let yydgoto = "\002\000\
\005\000\006\000"

let yysindex = "\001\000\
\255\254\000\000\000\000\000\000\000\000\001\255\000\000"

let yyrindex = "\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000"

let yygindex = "\000\000\
\000\000\000\000"

let yytablesize = 3
let yytable = "\003\000\
\004\000\001\000\007\000"

let yycheck = "\001\001\
\002\001\001\000\002\001"

let yyact = [|
  (fun _ -> failwith "parser")
; (fun parser_env ->
    let _1 = (peek_val parser_env 1 : 'exp) in
    Obj.repr((
# 27 "TIB86_parser.mly"
              0 ) : int))
; (fun parser_env ->
    Obj.repr((
# 28 "TIB86_parser.mly"
              0 ) : int))
; (fun parser_env ->
    let _1 = (peek_val parser_env 0 : int) in
    Obj.repr((
# 31 "TIB86_parser.mly"
              0 ) : 'exp))
(* Entry main *)
; (fun parser_env -> raise (YYexit (peek_val parser_env 0)))
|]
let yytables =
  { actions=yyact;
    transl_const=yytransl_const;
    transl_block=yytransl_block;
    lhs=yylhs;
    len=yylen;
    defred=yydefred;
    dgoto=yydgoto;
    sindex=yysindex;
    rindex=yyrindex;
    gindex=yygindex;
    tablesize=yytablesize;
    table=yytable;
    check=yycheck;
    error_function=parse_error }
let main (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
   (yyparse yytables 1 lexfun lexbuf : int)