#!/usr/bin/perl
use strict;
use warnings;

my %words;
my $text;
{
	local $/ = undef; 
	$text = <>; 
}
$words{$_}++ foreach 
            map {$_= lc; tr/авйиклофщыз/aaeeeeiouuc/; $_;} 
            split /[,.:;"?!'\n ]+/, $text;
print map {$words{$_}, "\t$_\n"} 
      sort {$words{$b} <=> $words{$a} || $a cmp $b} 
      keys %words;