var k:char;
s:string;
BEGIN
s:='';
repeat
read(k);
s:=s+chr(ord(k)-1)
until k='.';
delete(s,pos('-',s),1);
writeln(s);
end.