<>;print 30*grep$_*10<=$s,grep$s+=$_,glob<>