#! /usr/bin/perl

chop($t = <STDIN>);
print "<HTML>
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=euc-jp\">
<TITLE>$t</TITLE>
<STYLE><!--
  body {font-family: osaka,MS P¥´¥·¥Ã¥¯,arial,helvetica,sans-serif}
  --></STYLE>
<BODY bgcolor=\"#ffffff\">
<CENTER><H1>$t</H1></CENTER>
<TABLE><TR valign=top><TD>\n";
$ct = 0;
while ($p = <STDIN>) {
	chop($p);
	next if (!($p =~ m/gif/) && !($p =~ m/jpg/));
	$ct++;
	($img, $dt) = split(/[ ]+/, $p, 2);
	print "<IMG src=\"$img\"><BR>$dt\n";
	if ($ct % 6) {	print "</TD><TD>\n"; }
	else {		print "</TD></TR><TR valign=top><TD>\n"; }
}
print "</TD></TR></TABLE>
<TABLE width=\"100%\" cellspacing=0><TR valign=top bgcolor=\"#ccffcc\">
<TD align=left>all photos by <A HREF=\"../../../../\">H.Doi</A></TD>
<TD align=right><A HREF=\"../../../\">Seiyuu Database</A></TD>
</TR></TABLE>
</BODY>
</HTML>\n";

