#!perl

$max_word_size=4;

while(<STDIN>){
	$text.=$_;
}

$text=~s/[^\s-АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя]//g;
$text=~s/(\s)+/ /g;

$text=~s/А/а/g;
$text=~s/Б/б/g;
$text=~s/В/в/g;
$text=~s/Г/г/g;
$text=~s/Д/д/g;
$text=~s/Е/е/g;
$text=~s/Ё/ё/g;
$text=~s/Ж/ж/g;
$text=~s/З/з/g;
$text=~s/И/и/g;
$text=~s/Й/й/g;
$text=~s/К/к/g;
$text=~s/Л/л/g;
$text=~s/М/м/g;
$text=~s/Н/н/g;
$text=~s/О/о/g;
$text=~s/П/п/g;
$text=~s/Р/р/g;
$text=~s/С/с/g;
$text=~s/Т/т/g;
$text=~s/У/у/g;
$text=~s/Ф/ф/g;
$text=~s/Х/х/g;
$text=~s/Ц/ц/g;
$text=~s/Ч/ч/g;
$text=~s/Ш/ш/g;
$text=~s/Щ/щ/g;
$text=~s/Ъ/ъ/g;
$text=~s/Ы/ы/g;
$text=~s/Ь/ь/g;
$text=~s/Э/э/g;
$text=~s/Ю/ю/g;
$text=~s/Я/я/g;

print $text;
