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

print "<table> <!-- outer -->\n";
print "  <tr align=\"center\" valign=\"top\">\n";
print "    <td>\n";
print "      <table border=1> <!-- inner -->\n";

while (<>) {
  if (/^\s*$/) {
    print "      </table> <!-- inner -->\n";
    print "    </td>\n";
    print "    <td>\n";
    print "      <table border=1>  <!-- inner -->\n";
    next;
  }    

  my ($name, @ranking) = split;
  $name =~ tr/_/ /;
  
  print "        <tr align=\"center\">";
  print "<th>$name</th>";
  foreach $rank (@ranking) {
    if ($name =~ /-----+/) {
      print "<th>$rank</th>";
    } else {
      print "<td>$rank</td>";
    }
  }
  print "</tr>\n";
}
print "      </table> <!-- inner -->\n";
print "    </td>\n";
print "  </tr>\n";
print "</table> <!-- outer -->\n";

exit 0;