$\=<>;$_[$s+=$_]=1for glob<>;$\--while grep!$_[$s/$\*$_],1..$\;print