var
s:string;
i,n,j:longint;
begin
readln(s);
readln(n);
i:=1;
for j:= 1 to n do
for i:= 1 to length(s) do
if i=length(s) then
begin
delete(s,i,1);
break;
end else
if s[i]>s[i+1] then
begin
delete(s,i,1);
break;
end;
for i:=1 to length(s) do
if s[i]<>'0'then delete(s,1,i-1);
writeln(s);
end.
s:string;
i,n,j:longint;
begin
readln(s);
readln(n);
i:=1;
for j:= 1 to n do
for i:= 1 to length(s) do
if i=length(s) then
begin
delete(s,i,1);
break;
end else
if s[i]>s[i+1] then
begin
delete(s,i,1);
break;
end;
for i:=1 to length(s) do
if s[i]<>'0'then delete(s,1,i-1);
writeln(s);
end.