program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..500] of char;b:array[1..500] of integer;i,k,m:integer;z:char;input,output:text;
begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
i:=0;
while not eof(input) do begin
i:=I+1;
read(input,a[i]);
end;
K:=i;
close(input);
for  i:=1 to k do  begin
for  m:=1 to k do begin
if (ord(a[i])<123) and (ord(a[i])>96)
then b[i]:=(ord(a[i])-32) else
if (ord(a[i])>64) and (ord(a[i])<91)
then b[i]:=ord(a[i])+32 else
if (ord(a[i])>223) and (ord(a[i])<256)
then b[i]:=ord(a[i])-32 else
if (ord(a[i])>191) and (ord(a[i])<224)
then b[i]:=ord(a[i])+32 else
b[i]:=ord(a[i]);
end;
end;
for m:=1 to k do
write(output,chr(b[m]));
close(output);
end.