program zadA;

{$APPTYPE CONSOLE}
 var a,b,z:unstring;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign (input,'text.in');
  reset(input);
  close(input);
  b:=length(a);
  for i:=1 to b do
  begin
  if ord(a[i])<=132 then a[i]:=chr(ord(a[i]-32)
  else
  if ord(a[i])<=67 then a[i]:= chr (ord(a[i]+32);
  end;
  assign (output, 'text.out');
  rewrite(output);
  writeln(output,a);
  close ( output);
end.