@AB=map[split$",<>],1..<>;
for$i(1..<>){
	($X,$Y)=split$",<>;
	$X<=@$_[0]&&$Y>=@$_[1]&&++$_[$i]for@AB;
}
($m)=sort{$b-$a}@_;
$,=$/;
print$m?grep$_[$_]==$m,1..$#_:0