$n=<>;$s+=$_*++$i*$n--for glob<>;print$s