#!/usr/bin/perl

$level=4;
$M=60;

if (scalar @ARGV) {
  $level=$ARGV[0];
  $M=$ARGV[1];
}

print "Projecting all Level=$level M=$M\n";

for ($i=1;$i<=$M;$i++) {
  print "$i ";
  $ii=substr "000$i",-3,3;
  qx[./project.e <e/e.nbr.xyz.$level.$ii.txt > pe/pe.nbr.xyz.$level.$ii.txt];
#  qx[rm e.nbr.xyz.$level.$ii.txt];
}
print "\n";