<>;$/=$";$c+=$_ for@a=<>;$x+=$_*10<=$c for@a;print$x*30