program rimski;

var brr:string;
    j:char;
begin

  readln(brr);
  If length(brr)>2 then writeln(brr) else    Begin
  j:=brr[1];
  brr[1]:=brr[2];
  brr[2]:=j;
  writeln(brr);
  end;
  end.