<>=~$";<>;map$v+=$_,glob<>;print 1+~-$'/$v|0