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