@_=<>;
map$l+=$-=$_*~-$_*($_[11]-$_)-$l,2..$_[11];
print$_[7]*$_[4]*$l/2*($o=$_[14]>>1)*$_[22]*($_[14]-$o)*$_[17]*$_[3]