($A[$i],$B[$i++])=split$",<>for 0..<>-1;
for$i(1..<>){
	($X,$Y)=split$",<>;
	$j=0;
	$Y>=$B[$j++]&&$X<=$_&&++$_[$i]for@A
}
$_>$m&&($m=$_)for@_;
if($m){
	$_[$_]==$m&&print$_,$/for 1..$#_
}else{
	print 0,$/
}