don't understand packages vs. objects/classes

[caldwell@typhoon.seas.ucla.edu (Andrew E. Caldwell)]

Could someone please help me understand this.  Either there is a large
group of syntactic constructs I missed in the manual, or I am
still stuck in c++/smalltalk mode, or I just don't get it.

It seems to me (in my VERY limited Ada knowledge) that packages are 
like classes for OOP purposes.  They have the features of data hiding, and
binding procedures with data, hiding implementation, etc. But, how
do you get more than one of them in a procedure/function.

For instance, if I define the package STACK to have the procedures
POP which returns say, an integer, and PUSH(X:integer), and I want
to use my STACK in a procedure, I do something like (please, although my
Ada style may not be the usual as I'm new, I think it's clear what I'm asking,
so...)

with STACK;
procedure foo is
use stack;
test:integer;

begin
--a procedure body
end foo;

and inside foo I can call test = POP;
and this works.  But, what if foo needed TWO stacks, or three? As STACK
doesn't appear to be named, it doesn't look like an object.  It's a 
support library, rather than a data type?  But, that wasn't what I 
thought it was supposed to be.  If it is just a library of functions,
then does Ada have a class/object structre?  How about all the OOP
subjects I've  seen on this list lately- surely it must.

-andy		caldwell@seas.ucla.edu