my $glyphs = Shiar_Sheet::FormatChar->new;
print $glyphs->table([qw{
+ .>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零
+ .>Chinese 一 二 三 四 五 六 七 八 九 〇
+ .>Hangzhou 〡 〢 〣 〤 〥 〦 〧 〨 〩
+ .>Ethiopic ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱
+ .>Khmer ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
+ .>Arabic_-_Indic ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
+ .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
+ .>Lao ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
+ .>Malayalam_-_മലയാളം ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
+ .>Tamil_-_தமிழ் ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯
+ .>Myanmar ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
+ .>Thai_-_ไทย ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
+ .>Kannada ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
+ .>Telugu ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
+ .>Tibetan ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
+ .>Bengali ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
+ .>Oriya_-_ଓଡ଼ିଆ ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
+ .>Gurmukhi_-_ਪੰਜਾਬੀ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
+ .>Gujarati ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
+ .>Devanagari १ २ ३ ४ ५ ६ ७ ८ ९ ०
+ .>Arabic_(Western) 1 2 3 4 5 6 7 8 9 0
+ .>Roman Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ
+ .>Tengwar
+ .>Klingon
+}]);
+
+sub print_glyph_tables {
+ while (@_) {
+ printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
+ while (ref $_[0] and $_ = shift) {
+ print $glyphs->table($_);
+ }
+ print '</div>';
+ }
+}
+
+print_glyph_tables(
+Western => [qw{
.>Latin A > B C G D > E F Y VU W Z H - I J K L M N > X O P > - Q R > S T
.>Old_Italic 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅 > > 𐌖 𐌆 𐌇 𐌈 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕
.>Cyrillic А Б В > Г Д Е Э > -Ѵ > У З И Ѳ > І К Л М Н Х -Ѯ О П Ц Ч -Ҁ Р Ш С Т