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;