type
    int = longint;
var
    s: string;
    max, min: char;
    i, j, p, n: int;

procedure swap(var a, b: char);
var tmp:char;
begin
    tmp:=a; a:=b; b:=tmp;
end;
    
procedure sort(var s: string; l, r: int);
var i, j: int;
    x: char;
begin
    i:=l; j:=r; x:=s[(l + r) shr 1];
    repeat
        while s[i] < x do inc(i);
        while x < s[j] do dec(j);
        if i <= j then begin
            swap(s[i], s[j]);
            inc(i); dec(j);
        end;
    until i > j;
    if i < r then sort(s, i, r);
    if l < j then sort(s, l, j);
end;    

begin
    readln(s);
    n:=length(s);
    max:='0';
    for i:=n downto 1 do begin
        if s[i] >= max then begin
            max:=s[i];
        end else begin
            p:=i + 1;
            for j:=i + 2 to n do
                if s[j] > s[i] then
                    if s[j] < s[p] then p:=j;
            swap(s[i], s[p]);
            sort(s, i + 1, n);
            break;
        end;
    end;
    writeln(s);
end.