var

n:string;

m,i,j,l:integer;

begin

readln(n);

readln(m);

for i:=1 to m do

begin

j:=1;

while (n[j]<=n[j+1])and(j<length(n)) do inc(j);

delete(n,j,1);

end;

while (n[1]='0') do delete(n,1,1);

writeln(n);

end.