sub MD(){1000000007}
<>;
for(glob<>){
	$a+=$_>50;
	$b+=$_<50;
}
if($a==0){
	print 0;
	exit;
}
$z=1;
$z=$z*2%MD for 1..$a-1+$b;
print$z;