CONST -> 'const'
VAR -> 'var'
PROCEDURE -> 'procedure' 
CALL -> 'call' 
BEGIN -> 'begin' 
END -> 'end'
IF -> 'if' 
THEN -> 'then' 
WHILE -> 'while' 
DO -> 'do' 
ODD -> 'odd' 
PLUS -> '+' 
MINUS -> '-' 
MULTIPLY -> '*' 
DIVIDE -> '/' 
ASSIGN -> ':=' 
EQUALS -> '=' 
LESS -> '<' 
NOTEQUALS -> '<>' 
GREATER -> '>' 
LESSEQUALS -> '<=' 
GREATEREQUALS -> '>='
SEMICOLON -> ';'
COMMA -> ','
PERIOD -> '.' 
OPENBRACKET -> '('
CLOSEBRACKET -> ')'
##
IDENT -> ([a-z]|[A-Z])([a-z]|([A-Z]|[0-9]))* 
NUMBER -> ([0-9])+ 
##
COM -> /\*([A-Z]|([a-z]|([0-9]|\s)))*\*/
##
EOL -> \n|\r
SPACE -> \s|\t
COM -> /\*!([A-Z]|([a-z]|([0-9]|\s)))*\*/
##
start -> block <PERIOD>
block -> constlist varlist proclist {print <nl>; print "/*! Main block */";print <nl>;}  statement
constlist -> EMPTY 
constlist -> {print "/*! Constant declarations */";print <nl>;} <CONST> constdec <SEMICOLON> {print lexeme; print <nl>; print <nl>;} 
varlist -> 	EMPTY
varlist ->  {print "/*! Variable declarations */";print <nl>;}  <VAR> vardec <SEMICOLON> {print lexeme; print <nl>; print <nl>;}
proclist -> EMPTY 
proclist ->  {print "/*! Procedures */"; print <nl>;} <PROCEDURE> <IDENT> paramlist <SEMICOLON> {print lexeme; print <ii>; print <nl>;} block <SEMICOLON> {print lexeme; print <di>; print <nl>;} proclist 
statement -> EMPTY
statement -> assignment 
statement ->  callproc 
statement ->  beginend 
statement -> ifthen 
statement -> whiledo 
constdec -> conststate
constdec -> conststate <COMMA> constdec
vardec -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;}
vardec -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} <COMMA> vardec
paramlist -> EMPTY
paramlist -> <OPENBRACKET> paramdec <CLOSEBRACKET>
assignment -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} <ASSIGN> expression 
callproc -> {print <[KEY>;} <CALL> {print lexeme; print <KEY]>; print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} <OPENBRACKET> vardec <CLOSEBRACKET>
beginend -> {print <[KEY>;} <BEGIN> {print lexeme; print <KEY]>; print <ii>; print <nl>;} statement statementlist {print <di>; print <nl>; print <[KEY>;} <END> {print lexeme; print <KEY]>;}
ifthen -> {print <[KEY>;} <IF> {print lexeme; print <KEY]>;} condition {print <[KEY>;} <THEN> {print lexeme; print <KEY]>; print <ii>; print <nl>;} statement {print <di>;}
whiledo -> {print <[KEY>;} <WHILE> {print lexeme; print <KEY]>;} condition {print <[KEY>;} <DO> {print lexeme; print <KEY]>; print <ii>; print <nl>;} statement {print <di>;}
conststate -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} <EQUALS> { print lexeme; print <[CONST>; } <NUMBER> {print lexeme; print <CONST]>; }  
statementlist -> EMPTY
statementlist -> <SEMICOLON> {print lexeme; print <nl>;} statement statementlist
condition -> oddexpr
condition -> compare
expression -> sign term
expression -> sign term expression
paramdec -> parampart
paramdec -> parampart <SEMICOLON> paramdec
oddexpr -> <ODD> <OPENBRACKET> expression <CLOSEBRACKET>
compare -> expression equalityoper expression
sign -> EMPTY
sign -> { print <[OP>; } <PLUS> {print lexeme; print <OP]>; } 
sign -> { print <[OP>; } <MINUS> {print lexeme; print <OP]>; } 
term -> factor 
term -> factor multdiv term
parampart -> {print <[KEY>;} <VAR> {print lexeme; print <KEY]>;} ilist
parampart -> ilist
factor -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;}
factor -> { print <[CONST>; } <NUMBER> {print lexeme; print <CONST]>; } 
factor -> <OPENBRACKET> expression <CLOSEBRACKET>
multdiv -> { print <[OP>; } <MULTIPLY> {print lexeme; print <OP]>; } 
multdiv -> { print <[OP>; } <DIVIDE> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <EQUALS> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <NOTEQUALS> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <LESS> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <GREATER> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <LESSEQUALS> {print lexeme; print <OP]>; } 
equalityoper -> { print <[OP>; } <GREATEREQUALS> {print lexeme; print <OP]>; } 
ilist -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} 
ilist -> {print <[IDENT>;} <IDENT> {print lexeme; print <IDENT]>;} <COMMA> ilist