for(1..<>){
	<>;
	($a,@a)=glob<>;
	$a+=$_+$a*$_ for@a;
	print $a,$/;
}