my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
my $di = do "data/digraphs-rfc.inc.pl"
or warn "official digraphs not included for comparison: ", $@ // $!;
warn("$mnem already defined"), next if defined $di->{$mnem};
my $chrstr = sprintf '"\x{%x}"', $cp // ord $chr;
say "q{$mnem} => $chrstr,";
warn("$mnem already defined"), next if defined $di->{$mnem};
my $chrstr = sprintf '"\x{%x}"', $cp // ord $chr;
say "q{$mnem} => $chrstr,";