var
  s1,s2,i : longint;
begin
  readln(s1);
  readln(s2);
  for i:=1 to s2 do
    if s1 mod 10 = 0 then
      s1:=s1 div 10
    else
      s1:=s1-1;
  writeln(s1);
end.