coupon_sapo_2021

program coupon;
var
  ans, n, k : longint;
begin
  read(n);
  read(k);

  ans := n;

  while (n >= k) do
    begin
      inc(ans);
      n := n - k + 1;
    end;

  writeln(ans);

  readln;
end.