with ada.text_io; use ada.text_io;
package body stackpkg.utils is
    function size(s: Stack) return natural is
    begin
        return s.top;
    end size;

    procedure print_stack(s: Stack) is
    begin
        for i in 1 .. s.top loop
            print_item(s.elements(i));
            --  Prints using generic parameter print_item
            new_line;
        end loop;
    end print_stack;
end stackpkg.utils;