($n,$k)=glob<>;
@p=glob<>;
@a=0..$#p;
while($k){
	map$_+=$p[$_%$n],@a if$k&1;
	@p=map$p[$_]+$p[($_+$p[$_])%$n],0..$#p;
	$k>>=1;
}
print map{$_+1,$/}@a;