$n=<>;
for$i(1..$n){
	($a[$i],$b[$i])=glob<>;
}
$m=<>;
for$j(1..$m){
	($x,$y)=glob<>;
	for$i(1..$n){
		if($x<=$a[$i]&&$y>=$b[$i]){
			++$c[$j];
		}
	}
	if($d<$c[$j]){
		$d=$c[$j];
	}
}
if($d==0){
	print 0;
}else{
	for$j(1..$m){
		if($c[$j]==$d){
			print $j,$/;
		}
	}
}