int regs[26];

list:

	/* empty */

	| list stat '\n'

stat:

	expr { (void) printf( "RESULT: %d\n", $1 ); }

expr:

	'(' expr ')'

	{

		$$ = $2;

	}

	| expr PLUS expr

	{

		$$ = $1 + $3;

	}

	| expr MINUS expr

	{

		$$ = $1 - $3;

	}

	| expr MUL expr

	{

		$$ = $1 * $3;

	}

	| expr DIV expr

	{

			$$ = $1 / $3;

	}

	| MINUS expr  %prec UMINUS

	{

		$$ = -$2;

	}

	| LETTER

	{

		$$ = regs[$1];

	}

	|  number

	;

number:

	DIGIT

	{

		$$ = $1; base = ($1==0) ? 8 : 10;

	}

	| number DIGIT

	{

		$$ = base * $1 + $2;

	}

	;

int yyerror()

int yywrap()