my $name = $col{"-$term"}[$num + 1] || $num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);
my $name = $col{"-$term"}[$num + 1] || $num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);