#!/usr/bin/perl
use strict;

my @map;
$map[97] = "А";
$map[98] = "Б";
$map[119] = "В";
$map[103] = "Г";
$map[100] = "Д";
$map[101] = "Е";
$map[51] = "Ё";
$map[118] = "Ж";
$map[122] = "З";
$map[105] = "И";
$map[106] = "Й";
$map[107] = "К";
$map[108] = "Л";
$map[109] = "М";
$map[110] = "Н";
$map[111] = "О";
$map[112] = "П";
$map[114] = "Р";
$map[115] = "С";
$map[116] = "Т";
$map[117] = "У";
$map[102] = "Ф";
$map[104] = "Х";
$map[99] = "Ц";
$map[126] = "Ч";
$map[123] = "Ш";
$map[125] = "Щ";
$map[120] = "Ь";
$map[121] = "Ы";
$map[127] = "Ъ";
$map[124] = "Э";
$map[96] = "Ю";
$map[113] = "Я";
$map[65] = "а";
$map[66] = "б";
$map[87] = "в";
$map[71] = "г";
$map[68] = "д";
$map[69] = "е";
$map[35] = "ё";
$map[86] = "ж";
$map[90] = "з";
$map[73] = "и";
$map[74] = "й";
$map[75] = "к";
$map[76] = "л";
$map[77] = "м";
$map[78] = "н";
$map[79] = "о";
$map[80] = "п";
$map[82] = "р";
$map[83] = "с";
$map[84] = "т";
$map[85] = "у";
$map[70] = "ф";
$map[72] = "х";
$map[67] = "ц";
$map[94] = "ч";
$map[91] = "ш";
$map[93] = "щ";
$map[88] = "ь";
$map[89] = "ы";
$map[95] = "ъ";
$map[92] = "э";
$map[64] = "ю";
$map[81] = "я";
$map[49] = "\xd1\xb4";
$map[33] = "\xd1\xb5";
$map[60] = "\xd1\xb2";
$map[44] = "\xd1\xb3";
$map[50] = "\xd1\xa2";
$map[34] = "\xd1\xa3";
$map[54] = "\xd0\x86";
$map[38] = "\xd1\x96";

undef($/);
my $data = <>;
while($data ne '')
{
    my $ch = substr($data, 0, 1, '');
    my $code = ord($ch);
    if($code < 128)
    {
        print $ch;
        next;
    }
    $code -= 128;
    if(!defined $map[$code])
    {
        print $ch;
        next;
    }
    print $map[$code];
}