program kadai
implicit none
integer  ::  k,x
integer  ::  i,j,l,n
integer,allocatable  ::  ans(:)

read(*,*) k,x

i=x-k+1
j=x+k-1

allocate(ans(2*k-1))
n=1
do l=i,j
    ans(n)=l
    n=n+1
end do

write(*,*) ans
stop

end program kadai
