1LoadPackage("io"); 2l := List([1..100],x->Random(1,1000));; 3wf := ParWorkerFarmByFork(x->x^2,rec(NumberJobs := 4)); 4for i in [1..Length(l)] do Submit(wf,[l[i]]); od; 5while not(IsIdle(wf)) do DoQueues(wf,true); Print(".\c"); od; 6Print("\n"); 7result := Pickup(wf); 8Kill(wf); 9Print(l,"\n",result,"\n"); 10 11