for my $k (sort keys %{$geochar}) {
printf "\tkey <%s> {[%s]};\n", $k, join(', ',
map { !$_ ? 'NoSymbol' : sprintf 'U%04X', ord }
for my $k (sort keys %{$geochar}) {
printf "\tkey <%s> {[%s]};\n", $k, join(', ',
map { !$_ ? 'NoSymbol' : sprintf 'U%04X', ord }