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