(bind-func cpBBMergedArea (lambda (a:cpBB b:cpBB) (* (- (max (tref a 2) (tref b 2)) (min (tref a 0) (tref b 0))) (- (max (tref a 3) (tref b 3)) (min (tref a 1) (tref b 1))))))