/* add.y
Obliczanie sumy.
Parser czyta z wejscia wyrazenia arytmetyczne zlozone z liczb calkowite i znakow '+', 
na wyjsciu wypisuje wynik dodawania. 

*/

%{
uses YaccLib, LexLib;
%}

%token NUM

%%

input	:  
	|  input '\n'
	|  input  expr '\n' { writeln($2); }
	;

expr	: expr '+' NUM	{ $$ := $1 + $3;}
	| NUM
	;
%%

{$I addlex.pas}

begin
  yyparse;
end.