program task_a; {$APPTYPE CONSOLE} uses SysUtils; var i:integer; t,ans:ansistring; f:text; begin assign(f,'text.in'); reset(f); readln(f,t); close(f); assign(f,'text.out'); rewrite(f); ans:=''; for i:=1 to length(t) do begin if (t[i] in ['a'..'z']) then begin ans:=ans+char(ord(t[i])-32); continue; end; if (t[i] in ['A'..'Z']) then begin ans:=ans+char(ord(t[i])+32); continue; end; ans:=ans+t[i]; end; writeln(f,ans); close(f); end.