with
  Interfaces.C,
  POSIX.Process_Identification,
  POSIX.Unsafe_Process_Primitives;

with
  EUP.Text_IO;

procedure Exploration_8_4 is
   Message_1  : constant POSIX.POSIX_String := "Testing 1 2 3 ..";
   Message_2  : constant POSIX.POSIX_String := "Hello, hello";
   File_Name  : constant POSIX.POSIX_String := "testfile";
   Test_File  : EUP.Text_IO.File_Type;
   Written    : Natural;
   Process_ID : POSIX.Process_Identification.Process_ID;
begin
   EUP.Text_IO.Create (File => Test_File,
                       Name => File_Name);
   EUP.Text_IO.Put_Line (File => Test_File,
                         Item => Message_1);
   Process_ID := POSIX.Unsafe_Process_Primitives.Fork;
   EUP.Text_IO.Put_Line (File => Test_File,
                         Item => Message_2);
   EUP.Text_IO.Close (File => Test_File);
end Exploration_8_4;