configuration Cycle is
   pragma Starter (Ada);
   Partition1 : Partition := (Prime_1, Results);
   Partition2 : Partition := (Prime_2);
   Partition3 : Partition := (Prime_3);
   for Partition'Directory use "bin";
   procedure Mainloop is in Partition1;
end Cycle;
