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