-use Shiar_Sheet::FormatChar;
-my $glyphs = Shiar_Sheet::FormatChar->new;
-unless (exists $get{v}) {
- $glyphs->{unicode}--;
- $glyphs->{digraph}--;
-}
-
-my %scriptname = (
- latn => 'Latin',
- latfsuet => 'Sütterlin',
- brai => 'Braille',
- morse => 'Morse',
-);
-