main :: IO ()
main = do
    k : x : _ <- map read . words <$> getLine
    putStrLn
        . unwords
        . map show
        . filter ((&&) <$> (>= -1000000) <*> (<= 1000000))
        $ [x - k + 1 .. x + k - 1]
