program zadasha1;
var a,b:string; i,c:integer; f1,f2:text;
begin
assign(f1,'text.in');
reset(f1);
readln(f1,a);
close(f1);
c:=length(a);
assign(f2,'text.out');
rewrite(f2);
b[1]:=chr(ord(a[i])-32);
for i:=2 to c do
begin


    b[i]:=chr(ord(a[i])+32);
  end;
 write(f2,b[i]);

writeln(f2);
close(f2);
end.