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