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