<>=~$";++$_[$_]for glob<>;$\+=$_*$_[$'-$i++]for@_;print