use strict;

my $ num;
my $ nnum;
my $ nnnum;

for ($num=0; $num <= 414; $num++){
 print "r c 5 $num\n"; # read manifold 
 print "pr sh\n";   # print shapes
 print "pr fill\n"; # print filling equations - all n+k from Snap 
}

for ($nnum=0; $nnum <= 961; $nnum++){
 print "r c 6 $nnum\n"; # read manifold 
 print "pr sh\n";   # print shapes
 print "pr fill\n"; # print filling equations - all n+k from Snap 
} 

for ($nnnum=0; $nnnum <= 3551; $nnnum++){
 print "r c 7 $nnnum\n"; # read manifold 
 print "pr sh\n";   # print shapes
 print "pr fill\n"; # print filling equations - all n+k from Snap 
}

  # save as perlcensus1.pl and invoke by:   perl perlcensus1.pl |snap -b >perlout1.txt