1LoadPackage("io");
2
3SetInfoLevel(InfoIO,2);
4
5f := function(g)
6  return Size(Centre(g));
7end;
8
9l := AllSmallGroups(128);
10Print("Have ",Length(l)," small groups.\n");
11t := IO_gettimeofday();
12ll := ParListByFork(l,f,rec(NumberJobs := 4));
13Print("Parallel time (4 jobs): ",DifferenceTimes(IO_gettimeofday(),t),"\n");
14t := IO_gettimeofday();
15lll := List(l,f);
16Print("Sequential time (1 job): ",DifferenceTimes(IO_gettimeofday(),t),"\n");
17if ll <> lll then
18    Error("did not work");
19fi;
20