@a=`dd`=~/\d+/g;$a[$_]-=$a[$_+3]for 0..8;$s-=$a[$_]*=$a[$p=++$_%3+3]*$a[$q=++$_%3+6]-$a[$p+3]*$a[$q-3]for 0..2;print$s/6