toInt :: (String -> Int)
toInt x = read x ::Int
listConv :: [Int] -> [Char]
listConv [] = ""
listConv (x:[]) = (show x)
listConv (x:xs) = (show x) ++ " " ++ listConv xs

maxXaxis = 1000000
minXaxis = -1000000
main = do
  args <- words <$> getLine
  putStrLn (listConv [e |e <- [minXaxis..maxXaxis], let k = (map(toInt) args) !! 0,
                                       let x = (map(toInt) args) !! 1,
                                       (x - (k -1)) <= e, e <= (x + (k - 1))])
