($n,$k)=glob<>;
@a=(0,1);
push@a,++$.for 1..$k;
push@a,$.-=--$|*2-1for 3..$n-$k;
print"@a"