n:string；
q:boolean；
m,i,j:longint；
begin
readln(n)；
readln(m)；
for i:=1 to m do
begin
q:=true；
for j:=1 to length(n)-1 do
if n[j]>n[j+1] then
begin
delete(n,j,1)；
q:=false；
break；
end；
if q then delete(n,length(n),1)；
end；
while (n[1]=’0’) and (length(n)>1) do delete(n,1,1)；
write(n)；
end.
var
s:string；
i,j,k,t,l,p:integer；
begin
readln(s)；
readln(t)；
l:=length(s)；
for i:=1 to t do
begin
p:=1；
while (s[p+1]>=s[p]) and (p<l) do
inc(p)；
delete(s,p,1)；
dec(l)；
end；
while s[1]=’0’ do
delete(s,1,1)；
writeln(s)；
end.
Program t257;
Var n,t,len,i,j,w:integer;
s,ss,ans:string;
ch:char;
Begin
readln(s); len:=length(s); readln(n);
t:=0; len:=len-n; ans:='';
While t<len do begin
ss:=copy(s,1,n+1); ch:='0'; inc(t);
While pos(ch,ss)=0 do ch:=chr(ord(ch)+1);
w:=pos(ch,ss); ans:=ans+ch; delete(s,1,w); n:=n-w+1;
end;
t:=1; if length(ans)>1 then While ans[t]='0' do delete(ans,1,1);
writeln(ans);
end.
var n,i,j:byte;
s:ansistring;
begin
readln(s);
readln(n);
i:=1;
while(n>0)and(i<length(s))do
if s[i]>s[i+1] then
begin
delete(s,i,1);dec(n);
if i>1 then dec(i)
end
else inc(i);
if n>0 then delete(s,length(s)-n+1,n);
while(s[1]='0')and(length(s)>0)do delete(s,1,1);
writeln(s)
end.
var
n:string;
i,s:longint;
begin
readln(n);
read(s);
while s>0 do
begin
i:=1;
while (i<length(n)) and (n[i]<=n[i+1])do
i:=i+1;
delete(n,i,1);
s:=s-1;
end;
while (length(n)>1)and(n[1]='0')do delete(n,1,1);
write(n);{kao}
end.