#!/usr/bin/perl -w

my %data;

while(<>) {
  chomp;
  my ($key,$count) = split /\s+/;
  $data{$key} += $count;
}

@sorted_keys = sort {$data{$b} <=> $data{$a}} keys %data;
$max = $data{$sorted_keys[0]};

print "<table>\n";
for (@sorted_keys) {
  $w1 = 100 * $data{$_} / $max;
  $w2 = 100 - $w1;
  print "<tr><td>$_</td>\n";
  print "<td style=\"padding: 0px;\">";

  print "<table\n";
  print " style=\"height: 15px; width: 150px; margin: 0px; border: solid 1px #000\">\n";
  print "<tr>\n";
  print "<td style=\"padding: 0px; background-color: #f00;\"\n";
  print " width=\"$w1%\"></td>";
  print "<td style=\"padding: 0px; background-color: #eee;\" width=\"$w2%\"></td>\n";
  print "</tr></table>";

  print "</td></tr>\n";
}
print "</table>\n";