with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io; 
 
package body stackpkg.more is
    procedure put(s: Stack) is
    begin
        put(moreint);
        put(anotherint);
        -- put(someint);
        for i in 1 .. s.top loop
            put(s.elements(i));
            new_line;
        end loop;
    end put;
end stackpkg.more;