1with Inline20_R;
2
3generic
4package Inline20_I is
5
6   type Rec is null record;
7
8   generic
9   package Generic_IO is
10
11      function Image (Quote : Rec) return String;
12
13      package My_Nested_H is new Inline20_R.My_H.Nested_H (Rec, Image);
14
15      function F return Integer renames My_Nested_H.F;
16
17   end Generic_IO;
18
19end Inline20_I;