-my @table = do "writing-digits.inc.pl";
-die "Table data not found: <em>$_</em>.\n" for $! || $@ || ();
+my %table = do "writing-digits.inc.pl";
+die "Table data not found: $_\n" for $@ || $! || ();
+
+sub printtable {
+ say '<div class=section>', $glyphs->tabletag;
+ for my $id (@_) {
+ my $info = $table{$id};
+ my $title = $info->{title} // $scriptname->{$id} || $id;
+ print $glyphs->row([ ".>$title", @{$info->{list}} ]);
+ }
+ say '</table></div>';
+}