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.