uses crt;
var n,dem:longint;
    a:array[0..300005] of integer;

procedure tachso;
begin
  while(n<>0) do
    begin
      inc(dem);
      a[dem]:=n mod 10;
      n:= n div 10;
    end;
end;

procedure sapxep;
var i,j:integer;
begin
  for i:=1 to dem do
    for j:=i+1 to dem do
      if a[i]<a[j] then
       begin
         a[0]:=a[i];
         a[i]:=a[j];
         a[j]:=a[0];
       end;
end;

begin clrscr;
  readln(n); dem:=0;
  tachso; sapxep;
  for n:=1 to dem do
    write(a[n]);
  readln;
end.