generic
package stackpkg.print is
type Print_Item_Access is access procedure (i : ItemType);
procedure print_stack (s: Stack; p : Print_Item_Access);
procedure print_stack (s: Stack; p : access function (i : itemtype) return Integer);
end stackpkg.print;