#!/usr/local/bin/perl

$pages = 2;  # maximum 64

for ($j = 0 ; $j < $pages ; $j += 1 ) {
	open (OUTFILE, ">/home/d/b/dbaron/public_html/www/i18n/ents/highest_ents$j.html");
	print OUTFILE "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\">\n";
	print OUTFILE "<html><head>\n";
	print OUTFILE "<title>Character Entities Test</title>\n";
	print OUTFILE "<link rel=\"copyright\" href=\"http://dbaron.org/legal.html\"></HEAD>\n";
	print OUTFILE "<body>\n";
	print OUTFILE "<h1>Character Entities Test</h1>\n";
	print OUTFILE "<p style=\'font: 50px\/2 \"Times New Roman\";\'>\n";
	print OUTFILE "<span style=\"background: yellow;\">\n";
	
	for ($i=0 ; $i < 1024 ; $i++ ) {
		$k = 1024 * $j + $i;
		print OUTFILE "$k:&#$k;\n";
		}
	
	print OUTFILE "<\/span><\/p>\n";
	print OUTFILE "<hr>\n";
	print OUTFILE "<br><i><a href=\"/~dbaron/\">LDB</a>,\n";
	print OUTFILE "<a href=\"mailto:dbaron\@fas.harvard.edu\">dbaron\@fas.harvard.edu</a></i>\n";
	print OUTFILE "</body></html>\n";
	close(OUTFILE);
	}
