use integer;

sub f{
	my$p=$a[$o]-$o;
	my$r=($k-1)%($p+1);
	$k=($k-1)/($p+1)*$p+$r;
	++$o;
	$k&&&f;
	--$o;
	@a[$o..$o+$p-$r]=@a[$o+1..$o+$p-$r,$o];
}

($n,$k)=glob<>;
@a=glob<>;
$k&&f;
print"@a";