($n,$k)=<>=~/\d+/g;
for(0..$n-1){
	$x=(1,3,2,4)[$_%4] if $_<$n-$k;
	print $x,$";
}