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;