$n=<>+1;map$\-=($n-=2)*$_,sort{$a-$b}glob<>;print