Select Code to Download

# perl -lanwe '
BEGIN { push @{$o{0+@$_}}, $_ for map [split//], qw/021 0132 0213 0231
+ 0312 0321/; }
...
next if /LETTER \S+ WITH \S+ AND \S+/;
print "@keys[@$_] @F[@keys..$#F]" for @{$o{0+@keys}}
' /usr/share/X11/locale/${LANG}/Compose

file=~/.XCompose-ordering
line=$(head -n 1 $file)
(print -lr $line ; eval ${line[3,-1]}) > $file