my %x = ("\141" => "\063", "\143" => "\064",
"\144" => "\061", "\172" => "\065", "\160" => "\066",
"\145" => "\071", "\146" => "\061", "\147" => "\066",
"\150" => "\065", "\152" => "\060", "\153" => "\062",
"\164" => "\065", "\154" => "\067", "\155" => "\060",
"\142" => "\070", "\157" => "\066", "\162" => "\067",
"\161" => "\065", "\171" => "\071", "\156" => "\061",
"\151" => "\071", "\163" => "\061", "\165" => "\065",
"\167" => "\066", "\170" => "\071", "\166" => "\061");
print "\164\150\145\040\160\145\162\154\040\151\163\072\040";
my @y = split(//, lc(<STDIN>));
pop @y;
while(scalar(@y) < $x{"\164"}) { push(@y, "\152") }
for(my $i = 0; $i < scalar(@y); $i++) { if(@y[$i] < "\141" || @y[$i] > "\172") { @y[$i] = "\152" } }
print "\012\116\040\065\066\040\061\061\056\060".($x{@y[0]}==$x{"\152"}?$x{@y[0]}:$x{@y[0]}-1).
"$x{@y[1]}\012\105\040\060\061\064\040\065\062\056$x{@y[2]}$x{@y[3]}$x{@y[4]}\012";