with ada.text_io; use ada.text_io;
with intstackpkg; use intstackpkg; 

procedure intstkclient is
  S: StackType;

begin

  push(3, S);
  push(4, S);
  push(5, S);

  for I in 1..3 loop
     Put(Integer'Image(Top(S)));
     Pop(S);
  end loop;

end intstkclient;