with Ada.Text_IO;
package renaming1 is
   procedure Fo (A : Ada.Text_IO.File_Access);
end;