program ljlf;

var

s:string;

i,code,n,max,u,j:integer;

list:array[1..300] of integer;

procedure init;

begin

readln(s);

for i:=1 to length(s) do

val(s[i],list[i],code);

readln(n);

end;

procedure work;

begin

i:=0;

while imax then begin u:=j;max:=list[j];end;

list:=-1;

end;

end;

procedure outp;

begin

for i:=1 to length(s) do

if list[i]>0 then write(list[i]);

writeln;

end;

begin

init;

work;

outp;

end.