'|' => "\x{2309}",
);
+my $groups = kbchars(\%rows);
+$groups->{flag}->{g5} = [greek =>
+ "a different greek letter not corresponding with latin transcription"
+];
+while (my ($key, $chr) = each %rows) {
+ $groups->{def}->{''}->{$key} =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
+}
+
+{
- %{ kbchars(\%rows) },
- version => '1.0',
+ %{$groups},
+ version => '1.1',
title => 'US Symbolics',
category => 'specialised/greek/xorg',
intro => join("\n",