Module Module1

    Sub Main()

        Dim ab As String
        Dim asd(2) As String
        Dim K As Integer
        Dim X As Integer

        Dim s As String = Nothing

        ab = Console.ReadLine

        asd = Split(ab, " ")

        K = asd(0)
        X = asd(1)

        For i = X - (K - 1) To X + (K - 1)
            If (i = X + (K - 1)) Then
                s = s & i.ToString
            Else
                s = s & i.ToString & Space(1)
            End If

        Next i
        Console.WriteLine(s)
        Debug.Print(s)
    End Sub

End Module
