Generated parser.mli

type token =
  | INT_LIT of (int)
  | STR_LIT of (string)
  | IDENTIFIER of (string)
  | FIELD of (string)
  | TRUE
  | FALSE
  | AND
  | BOOL_KW
  | DO
  | OD
  | ELSE
  | END
  | IF
  | FI
  | INT_KW
  | NOT
  | OR
  | PROC
  | READ
  | REF
  | THEN
  | TYPEDEF
  | VAL
  | WHILE
  | WRITE
  | BINARY_MINUS
  | BINARY_PLUS
  | BINARY_MULTIPLICATION
  | BINARY_DIVISION
  | INEQUALITY
  | LESSER_EQUALITY
  | GREATER_EQUALITY
  | LESSER_THAN
  | GREATER_THAN
  | EQUALITY
  | ASSIGN
  | COMMA
  | COLON
  | SEMICOLON
  | L_BRACE
  | R_BRACE
  | L_PAREN
  | R_PAREN
  | L_BRACK
  | R_BRACK
  | COMMENT
  | REFERENCE_END
  | EOF

val prog :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> Tuple