var a:array[1..1000] of longint;
st,s,k:string;
i,j,dem:byte;
tam:longint;
procedure input;
var f:text;
begin
    assign(f,'XauKiTu.inp');reset(f);
    readln(f,st);
    close(f);
end;
procedure output;
var f:text;
begin
    assign(f,'XauKiTu.out');rewrite(f);
    dem:=1;
    for i:=1 to length(s) do
       begin
           if s[i]=' ' then
              begin
                  write(f,a[dem]);
                  inc(dem);
              end
           else write(f,s[i]);
       end;
    close(f);
end;
procedure xuly;
begin
    s:=st;
    i:=1;
    for i:=1 to length(st) do
        begin
            if s[i] in ['0'..'9'] then s[i]:=' ';
            if not(st[i] in ['0'..'9']) then st[i]:=' ';
        end;
    while pos('  ',st)<>0 do delete(st,pos('  ',st),1);
    if st[1]=' ' then delete(st,1,1);
    if st[length(st)]<>' ' then st:=st+' ';
    while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
    dem:=0;
    while pos(' ',st)<>0 do
       begin
           inc(dem);
           k:=copy(st,1,pos(' ',st)-1);
           val(k,a[dem]);
           delete(st,1,pos(' ',st));
       end;
    for i:=1 to dem-1 do
       for j:=i+1 to dem do
          if a[i]>a[j] then
             begin
                 tam:=a[i];
                 a[i]:=a[j];
                 a[j]:=tam;
             end;
end;
begin
    input;
    xuly;
    output;
end.