import System.IO

main = do
    line <- getLine
    let n = read $ (words line) !! 0 :: Int
        k = read $ (words line) !! 1 :: Int
        ans = show $ ai n k (-1)
    putStrLn ans
    hFlush stdout
    game n k


game :: Int -> Int -> IO ()
game n k = do
    opp <- getLine
    let s = read opp :: Int
    if s < n
        then do
            let ans = show $ ai n k s
            putStrLn ans
            hFlush stdout
            game n k
        else
            return ()


ai :: Int -> Int -> Int -> Int
ai n k s = last ansList
    where   ansList = takeWhile (>s) [n - x * (k + 1) - 1 | x <- [0..]]