#!/usr/bin/perl

%trans = (
	10=>'À;a',11=>'Á;b',12=>'Â;v',13=>'Ã;g',14=>'Ä;d',
	15=>'Å;e',16=>'Æ;zh',17=>'Ç;z',18=>'È;i',19=>'É;y',
	20=>'Ê;k',21=>'Ë;l',22=>'Ì;m',23=>'Í;n',24=>'Î;o',
	25=>'Ï;p',26=>'Ð;r',27=>'Ñ;s',28=>'Ò;t',29=>'Ó;u',
	30=>'Ô;f',31=>'Õ;h',32=>'Ö;c',33=>'×;ch',34=>'Ø;sh',
	35=>'Ù;sht',36=>'Ü;y',37=>'Þ;iu',38=>'ß;ia'
);

foreach $key (sort keys %trans) {
    ($cyr,$lat) = split(';',$trans{$key});
    $lat_u = uc $lat;
    print "cat $lat"."_*.parsed | sort | uniq > $lat_u\n";
    system("cat $lat"."_*.parsed | sort | uniq > $lat_u");
};
#    print "cat [A-Z]* | sort | uniq > .ALL\n";
#    system("cat [A-Z]* | sort | uniq > .ALL");
