program z1;
uses crt;
var s:string;
n,i,b,j:longint;
c:char;
f,f1:text;
begin
clrscr;
assign(f,'text.in')   ;
assign(f1,'text.out')  ;
reset(f);
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['a'..'z'] then s[i]:=upcase(s[i])
else if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['0'..'9'] then delete(s,i,1);
rewrite(f1);
write(f1,s);
readkey;
end.