1LoadPackage("io");
2l := List([1..1000000],i->Random(1,100));;
3
4GASMAN("collect");
5start := IO_gettimeofday();;
6a := Sum(l,Factorial);
7Print("Non-parallel: ",DifferenceTimes(IO_gettimeofday(),start),"\n");
8
9for i in [2..8] do
10    GASMAN("collect");
11    start := IO_gettimeofday();;
12    b := ParMapReduceByFork(l,Factorial,\+,rec(NumberJobs := i));
13    Print("With ",i," jobs: ",DifferenceTimes(IO_gettimeofday(),start),"\n");
14od;
15