#!/usr/bin/perl

print "<table border='1'>\n";
print "<thead>\n";
print "</thead>\n";
print "<tfoot>\n";
print "</tfoot>\n";
print "<tbody>\n";

while ($line = <STDIN>) {
    # Beginning of the line
    $line =~ s/^/<tr><td>/;

    # End of the line
    $line =~ s/$/<\/td><\/tr>/;

    # TAB starts new column
    $line =~ s/\t+/<\/td><td>/g;

    # Remove starting and trailing spaces
    $line =~ s/<td>\s+/<td>/g;
    $line =~ s/\s+<\/td>/<\/td>/g;

    # Align numbers to the right
    $line =~ s/<td>(\d+)<\/td>/<td style="text-align:right">\1<\/td>/g;

    print $line;
}

print "</tbody>\n";
print "</table>\n";