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

answerList :: Int -> Int -> [Int]
answerList n k = [m + d * k + d | d <- [0 ..]]
    where m = mod (n - 1) (k + 1)

answer :: Int -> Int -> Int -> IO ()
answer n k d = do
    print $ answerList n k !! d
    hFlush stdout

play :: Int -> Int -> Int -> IO ()
play n k d = do
    g <- readLn
    unless (g >= n) $ do
        answer n k d
        play n k $ d + 1

main :: IO ()
main = do
    [n, k] <- map read . words <$> getLine
    answer n k 0
    play n k 1