#!/usr/bin/perl

$level=4;
$M=60;
$size=200;

for ($i=1;$i<=$M;$i++) {
  print "$i ";
  $ii=substr "000$i",-3,3;
  qx[./contour.e $size e/e.nbr.xyz.$level.$ii.txt e/e.nbr.xyz.$level.$ii.png];
}