Const Fi='CHUOI.INP';
      Fo='CHUOI.OUT';
Var f,g: text;
    St: String;
    i: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,St);
        For i:=1 to length(St) do
        Begin
                If St[i] in ['A'..'Z'] then St[i]:=chr(ord(St[i])+32)
                Else
                If St[i] in ['a'..'z'] then St[i]:=Upcase(St[i]);
        End;

        Write(g,St);
        Close(f);
        Close(g);
End.

const fi='thutinh.inp';

        fo='thutinh.out';

var s:string;

     i:byte;

begin

assign(input,fi);

reset(input);

read(s);

close(input);

for i:=1 to length(s) do

if s[i] <> ' ' then

if s[i]=lowercase(s[i]) then upcase(s[i])

else lowercase(s[i]);

assign(output,fo);

rewrite(output);

write(s);

close(output);

end.