print "r c 5 168\n"; # read manifold 
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 
print "randomize\n"; # Get new triangulation
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 

print "r c 6 297\n"; # read manifold 
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 
print "randomize\n"; # Get new triangulation
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 

print "r c 7 1431\n"; # read manifold 
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 
print "randomize\n"; # Get new triangulation
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 

print "r c 7 1927\n"; # read manifold 
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 
print "randomize\n"; # Get new triangulation
print "pr sh\n";   # print shapes
print "pr fill\n"; # print filling equations - all n+k from Snap 


  # save as perlcensusfix.pl and invoke by:   perl perlcensusfix.pl |snap -b >perloutfix.txt