# In case of misspelling, default to a page cloud
my $res = "<div class='pagecloud'>\n";
foreach my $page (sort keys %counts) {
my $class = $classes[$counts{$page} * scalar(@classes) / ($max + 1)];
$res .= "<span class=\"$class\">".
# In case of misspelling, default to a page cloud
my $res = "<div class='pagecloud'>\n";
foreach my $page (sort keys %counts) {
my $class = $classes[$counts{$page} * scalar(@classes) / ($max + 1)];
$res .= "<span class=\"$class\">".