with intstackpkg;                 -- With of parent allowed, but not required
use intstackpkg; 

with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure intstackpkgclient  is 

    s: stacktype;                 -- Allocate a stack

begin
                                  -- Put some integers on it
    -- pop(s);
    push(3, s);
    if not isfull(s) then push(3, s); end if;
    push(2, s);
    if not isfull(s) then push(2, s); end if;

    put(Top(s));                  -- Print the top

end intstackpkgclient;