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