#!/usr/bin/perl
# The FreeBSD Russian Documentation Project
# $FreeBSDru$
# $FreeBSD$
#
# Convert following letters (sorted alpbabet in koi8-r) to unicode:
# áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀѳ£
#
# It's all sorted in unicode, except "³" letter (unicode 1025)

while (<>) {
s/á/&#1040;/g;
s/â/&#1041;/g;
s/÷/&#1042;/g;
s/ç/&#1043;/g;
s/ä/&#1044;/g;
s/å/&#1045;/g;
s/ö/&#1046;/g;
s/ú/&#1047;/g;
s/é/&#1048;/g;
s/ê/&#1049;/g;
s/ë/&#1050;/g;
s/ì/&#1051;/g;
s/í/&#1052;/g;
s/î/&#1053;/g;
s/ï/&#1054;/g;
s/ð/&#1055;/g;
s/ò/&#1056;/g;
s/ó/&#1057;/g;
s/ô/&#1058;/g;
s/õ/&#1059;/g;
s/æ/&#1060;/g;
s/è/&#1061;/g;
s/ã/&#1062;/g;
s/þ/&#1063;/g;
s/û/&#1064;/g;
s/ý/&#1065;/g;
s/ÿ/&#1066;/g;
s/ù/&#1067;/g;
s/ø/&#1068;/g;
s/ü/&#1069;/g;
s/à/&#1070;/g;
s/ñ/&#1071;/g;
s/Á/&#1072;/g;
s/Â/&#1073;/g;
s/×/&#1074;/g;
s/Ç/&#1075;/g;
s/Ä/&#1076;/g;
s/Å/&#1077;/g;
s/Ö/&#1078;/g;
s/Ú/&#1079;/g;
s/É/&#1080;/g;
s/Ê/&#1081;/g;
s/Ë/&#1082;/g;
s/Ì/&#1083;/g;
s/Í/&#1084;/g;
s/Î/&#1085;/g;
s/Ï/&#1086;/g;
s/Ð/&#1087;/g;
s/Ò/&#1088;/g;
s/Ó/&#1089;/g;
s/Ô/&#1090;/g;
s/Õ/&#1091;/g;
s/Æ/&#1092;/g;
s/È/&#1093;/g;
s/Ã/&#1094;/g;
s/Þ/&#1095;/g;
s/Û/&#1096;/g;
s/Ý/&#1097;/g;
s/ß/&#1098;/g;
s/Ù/&#1099;/g;
s/Ø/&#1100;/g;
s/Ü/&#1101;/g;
s/À/&#1102;/g;
s/Ñ/&#1103;/g;
s/³/&#1025;/g;
s/£/&#1105;/g;
print;
}