1package Stack_Usage4_Pkg is
2
3   subtype Name_Index_Type is Natural range 1 .. 63;
4
5   type Bounded_String is record
6      Len  : Name_Index_Type;
7      Data : String (Name_Index_Type'Range);
8   end record;
9
10   function Get return Bounded_String;
11
12end Stack_Usage4_Pkg;
13