main = do
  li <- getLine
  let [n,k] = map read $ words li
  let ans = compute n k
  print ans

{-
結局、全て最小値1にするしかない。
n = kなら全体を選んで一度でいい。さもなくば、
ai = 1がどこなのかを探すまでもなく、(n-1)+(k-1)-1 `div` (k-1)で全てを塗りつぶせる。
-}

compute :: Int -> Int -> Int
compute n k = (n+k-3) `div` (k-1)