#!/usr/bin/perl

$level=4;
$M=60;

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

print "Joinall Level=$level M=$M\n";

open OUT, ">pes.$level.$M.txt";
for ($i=1;$i<=$M;$i++) {
  $ii=substr "00$i",-3,3;
  open IN, "pe/pe.nbr.xyz.$level.$ii.txt";
  while ($a=<IN>) {
#   print $a;
   @ll=split /\s+/,$a;
   if ($ll[1]==0 ||
       $ll[2]==0 ||
       $ll[3]==0 ||
       $ll[4]==0 ||
       $ll[5]==0 ||
       $ll[6]==0 
      ) {
      close IN;
      last;  
   }
   else { 
      print OUT "$ll[9]\n";
   }
  } 
}