use strict;
use warnings;
my $i;
chomp(my $message=<>);
$message=join(" ",(split(//, $message)));
my $j=0;
for $i([A-Z]){
	$message=~s/$i/($j+6)/i;
	$j++;
}
my $g=6;
for $i([A-Z]){
	$message=~s/$g/$i/i;
	$g++;
}
print $message;