with LENGYEL, TEXT_IO; use TEXT_IO;
procedure Proba is
	package IntLengyel is new LENGYEL(INTEGER); use IntLengyel;
	kif: Kifejezes;
	eredmeny: INTEGER;
	procedure Push ( kif: in out Kifejezes; e: in Egyseg )
		renames EVEREM.Push;
begin
	Push(kif,(tipus=>plussz)); 
	Push(kif,(szamertek,11)); 
	Push(kif,(szamertek,5));

	Kiertekel(kif,eredmeny);
	Put_Line(INTEGER'Image(eredmeny));
end Proba;