#!/usr/bin/perl

my ($N, $c) = @ARGV;
$c ||= 30;

print <<EOM;
<html><head>
<title>$N-gons</title>
</head><body bgcolor="white">
EOM

print qq{<img src="n$N.gif">\n} for 1..$c;

print <<EOM;
</body></html>
EOM
