);
my @chars2 = (['_'], @chars); # trailing character (extended set)
-print '<table><col>';
+print '<table class="glyphs dimap"><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print "</table>\n";
:>
<div id="legend">
- <table><tr>
+ <table class="glyphs"><tr>
<td class="X Cc">control
<td class="X Zs"><span>spacing</span>
<td class="X Mn">modifier
<td class="X Bopomofo">chinese
</table>
- <table><tr>
+ <table class="glyphs"><tr>
<td class="X">unicode
<td class="X Xl">latin1
<td class="X Xa">ascii