$n=<>;
@0=glob<>;

for$i(0..38){
	for$j(0..$n-1){
		${$i+1}[$j]=$$i[$j]+$$i[($j+$$i[$j])%$n];
	}
}

for(1..<>){
	$k=<>;
	$a=0;
	for(0..39){
		if($k&1<<$_){
			$a+=$$_[$a%$n];
		}
	}
	print$a,$/;
}