1package Debug2_Pkg is
2
3    type String_Ptr is access all String;
4
5    function To_Heap return String_Ptr;
6
7    type String_List(Chars_Length: Positive) is private;
8
9    type String_List_Ptr is access constant String_List;
10
11    function Singleton return String_List;
12
13private
14
15    type String_List(Chars_Length: Positive) is record
16        Chars: String(1..Chars_Length);
17    end record;
18
19end Debug2_Pkg;
20