with Stacks, Text_IO;
procedure Main is
	package Integer_Stacks is new Stacks(Integer);
	use Integer_Stacks;
	S: Stack(255);
begin
	Push(S,3);
	Push(S,8);
	Pop(S);
	Text_IO.Put( Integer'Image( Top(S) ) );
	Pop(S);
	Pop(S);
end Main;