1limited with Pack1;
2package limited_with is
3   procedure Print_2 (Obj : access Pack1.Nested.Rec_Typ);
4end limited_with;
5