1with Text_IO;
2package renaming1 is
3   procedure Fo (A : Text_IO.File_Access);
4end;
5