\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var s, s1 : string;
    i, j : integer;
  procedure swap(var a,b:char);
        var res : char;
     begin
    res := a;
    a := b;
    b := res;
     end ;
  procedure next(var s:string);
        var i, j : integer;
     begin
    i := length(s) - 1;
    while (i>0) and (s[i]>=s[i+1]) do dec(i);
    
    if i = 0 then
         begin
        for j := 1 to length(s) div 2 do 
            swap(s[j],s[length(s)-j+1]);
        exit;
         end ;
    j := length(s);
    while s[j] <= s[i] do dec(j);
    swap(s[i],s[j]);
    inc(i);
    j := length(s);
    
    while i < j do
         begin
        swap(s[i],s[j]);
        inc(i); dec(j);
         end ;
     end ;
begin
    readln(s);
    for i := 1 to length(s) - 1 do 
        for j := i + 1 to length(s) do 
            if s[i] > s[j] then
                swap(s[i],s[j]);
    S1 := S;
    next(s1);
    write(s1);
end.