1 2 3 4 5 6 7 8 9
tok ::= ID [char] posn | CHAR char posn posn == (num,num) analyse = %lex letter = `a-z\xfff\&A-Z-` letter+ -> ID $$ $# . -> CHAR (hd $$) $# %%