Program ordine;
 var a:array ['a'..'z'] of longint;
    i,j,n:longint;
    c,lim,precedent:char;
    t:boolean;
    fi,fo:text;
begin
assign(fi,'ordine.in');
 assign(fo,'ordine.out');
reset(fi);
 rewrite(fo);
while not seekeof(fi) do begin
                          inc(n);
                           read(fi,c);
                           inc(a[c]);
                          end;
lim:='a'; precedent:='#';
for i:=1 to n do
 for c:=lim to 'z' do
   if (a[c]>0) and (c<>precedent) then begin
                                                write(fo,c);
                                                precedent:=c;
                                                dec(a[c]);
                                                break;
                                                end
   else if (a[c]>0) and (c=precedent) then lim:=c;
close(fo);
end.