{
    Решение избранных задач
    © 2024 Слинкин Д.А., GNU LGPLv3

 **********************************************************************}

{$mode objfpc}
var s:string;
    res:string;
    max:string;
    chg:array[1..3,1..2]of integer=(
        (1,2),
        (1,3),
        (2,3)
    );
    i:integer;
begin
 readln(s);
 max:=s;
 for i:=1 to 3 do begin
  res:=s;res[chg[i][1]]:=s[chg[i][2]];res[chg[i][2]]:=s[chg[i][1]];
  if res>max then max:=res;
 end;
 writeln(max);
end.