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