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;