$N=<>;$s+=$_*++$i*$N--for glob<>;print$s,$/