$m=998244353;
$n=<>;
($t[$_],$a[$_],$b[$_])=glob<> for 2..$n;
$q=<>;
@x=glob<>;
for$x(@x){
	$f[0]=1;
	$f[1]=$x;
	for$i(2..$n){
		$f[$i]=
			$t[$i]==1?($f[$a[$i]]+$f[$b[$i]])%$m:
			$t[$i]==2?($a[$i]*$f[$b[$i]])%$m:
			$t[$i]==3?($f[$a[$i]]*$f[$b[$i]])%$m:
			0;
	}
	print$f[$n],$/;
}