#!perl -lw
# q00 is ./x 270 0

# batches of 30 to avoid too many processes
if(defined($ARGV[0])){
    $start=30*$ARGV[0]+1;
} else {
    $start=1
}

for($start..($start+30-1)){
    $nines=3*$_;
    $z=sprintf("%02d",$_);
    print"nice -19 time ./x 270 ",("9"x$nines)," | pnmscale 2 | pnmtopng > q$z.png &";
}
print "time wait";