$A=a;${$A++}=$_ for<>;map$L+=$-=$_*~-$_*($l-$_)-$L,2..$l;print$h*$e*$L/2*($%=$o/2)*$w*($o-$%)*$r*$d