print "module ImplHeadCup(){ polyhedron(points=[\n" or die $!;
print pv($_),",\n" or die $! foreach @points;
print "],faces=[\n" or die $!;
print "module ImplHeadCup(){ polyhedron(points=[\n" or die $!;
print pv($_),",\n" or die $! foreach @points;
print "],faces=[\n" or die $!;