<CODE> {id} => (Tokens.IDENT (yytext, yypos, yypos + size yytext));
<CODE> {intconst} => (case Int.fromString yytext of
SOME x => Tokens.INT (x, yypos, yypos + size yytext)
<CODE> {id} => (Tokens.IDENT (yytext, yypos, yypos + size yytext));
<CODE> {intconst} => (case Int.fromString yytext of
SOME x => Tokens.INT (x, yypos, yypos + size yytext)