or warn "official digraphs not included for comparison: ", $@ // $!;
say "# automatically generated by $0";
say '+{';
for (readline) {
or warn "official digraphs not included for comparison: ", $@ // $!;
say "# automatically generated by $0";
say '+{';
for (readline) {
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,";