with Stacks, Ada.Text_IO; procedure Main is package Integer_Stacks is new Stacks(Integer); use Integer_Stacks; S: Stack(255); begin Push(S,3); Push(S,8); Pop(S); Ada.Text_IO.Put( Integer'Image( Top(S) ) ); Pop(S); Pop(S); end Main;