import Control.Applicative ((<$>))
import Control.Monad (when)
import System.IO (hFlush, stdout)

main :: IO ()
main = map read <$> words <$> getLine >>= solve

solve :: [Int] -> IO ()
solve [n, k] = do
  let r = (n-1) `mod` (k+1)
  if r == 0 then print 0
    else print r
  hFlush stdout
  loop
  where loop = do
          x <- readLn
          when (x < n) $ do
            print $ (n-1-x) `mod` (k+1) + x
            hFlush stdout
            loop