($N,$M)=split$",<>;
@A=sort{$b-$a}map$_+0,split$",<>;
$x^=$A[$_],$f[$_]=1for($i=$N-$M)..$N-1;
for(0..$N-1){
	last if$i==$_;
	if(($x^$A[$i]^$A[$_])>$x){
		$x^=$A[$i]^$A[$_];
		$f[$i++]^=1;
		$f[$_]^=1;
	}
	last if$i==$N
}
print"@A[grep$f[$_],0..$N-1]\n"