<INITIAL> {id} => (Tokens.SYMBOL (yytext, yypos, yypos + size yytext));
<INITIAL> {cid} => (Tokens.CSYMBOL (yytext, yypos, yypos + size yytext));
<INITIAL> {intconst} => (case Int.fromString yytext of
<INITIAL> {id} => (Tokens.SYMBOL (yytext, yypos, yypos + size yytext));
<INITIAL> {cid} => (Tokens.CSYMBOL (yytext, yypos, yypos + size yytext));
<INITIAL> {intconst} => (case Int.fromString yytext of