<>;$%=<>;$x+=$_*$%**($_-1),$\+=++$_?$%**$_/$_:log$%for glob<>;print$x,$/