($n,$k)=glob<>;
print$a+=2,$/for-1..$k;
print$a+=(2,-1,2,-3)[++$i%4],$/for 3..$n-$k;