program nomer27_25polyakov;
var i, s, j, temp:integer;
    x:string;
    z:array[0..9] of integer;
begin
    for i := 0 to 9 do
        z[i] := 0;


read (x);
for i := 1 to length(x)-1 do
begin
    for j := 0 to 9 do
    begin
        if StrToInt(x[i]) = j then
        z[j] := z[j] + 1;
    end;
end;

for i := 1 to 9 do
    for j:= 0 to 9 do
    begin
        if a[j] = i then
            write(j);
    end;
end.