#!/usr/local/bin/perl -w

print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">';
print "\n<html>\n  <head>\n    <title>Puzzles</title>\n";
print "</head>\n<blockquote>\n";
print "  <body BGCOLOR=\"#FFFFFF\">\n<h1>Puzzles</h1>\n<table>\n";

for($i=0;$i<16;$i++) {
  print "<tr>\n";
  for($j=0;$j<5;$j++) {
    $k=$i*5+$j+1;
    print "<td Align=\"center\">\n";
    print "<a href=puzzle$k.txt>Puzzle $k</a>\n";
    print "</td>\n";
  }
  print "</tr>\n";
  print "<tr>\n";
  for($j=0;$j<5;$j++) {
    $k=$i*5+$j+1;
    print "<td valign=top>\n";
    print "<img border=1 src=../gifs/puzzle$k.gif>\n";
    print "</td>\n";
  }
  print "</tr>\n";
}



print "</body>\n</blockquote>\n</html>\n";

