type token = | WHILE |
| VAR |
| TYPE_VOID |
| TYPE_INT |
| TYPE_BOOL |
| TRUE |
| SUBORDINATE |
| STRING of string |
| SEMICOLON |
| RPAREN |
| REM |
| READ |
| RBRACE |
| RANGLE |
| PRINTF |
| PLUS |
| OR |
| NEW |
| MULT |
| MINUS |
| MAIN |
| LPAREN |
| LOCKED |
| LOCAL |
| LINEAR |
| LET |
| LBRACE |
| LANGLE |
| INT of int |
| IF |
| ID of string |
| GENERIC_TYPE |
| FUNCTION |
| FOR |
| FINISH |
| FALSE |
| EXTENDS |
| EXCLAMATION_MARK |
| EQUAL |
| EOF |
| ELSE |
| DOT |
| DIV |
| CONSUME |
| CONST |
| COMMA |
| COLONEQ |
| COLON |
| CLASS |
| CAPABILITY |
| BORROWED |
| ASYNC |
| AND |
exception Error
val program : (Stdlib.Lexing.lexbuf -> token) -> Stdlib.Lexing.lexbuf -> Parsed_ast.program