my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
- print '<li><table class="glyphs">';
+ printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
printf '<caption>%s</caption>', $row->{set};
print '<col>';
for my $section (qw{thead}) {