@z=glob`dd`;$A+=(@z[$_]-=@z[$_+3])*($_>5?@z[++$_%3+3]*@z[$t=($_+1)%3]-@z[$_%3]*@z[$t+3]:0)for 0..8;print$A/6