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