with Ada.Text_IO, Interfaces.C;

with Fork;

procedure Exploration_8_6 is
   use Ada.Text_IO, Interfaces.C;
begin
   if Fork = 0 then
      for I in 1 .. 10 loop
         Put_Line ("still here ...");
         delay 1.0;
      end loop;
   end if;
end Exploration_8_6;