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