with Ada.Directories;procedure O is begin Ada.Directories.Copy_File("test.adb","/dev/fd/1");End;