8 type Stack (Size : Natural) is private;
10 function Default_Stack return Stack;
13 type Value_Array is array (Natural range <>) of Value;
15 type Stack (Size : Natural) is record
16 Store : Value_Array (1 .. Size);
19 Default_Stack_Var : Stack (10);