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