(define corner-bb image-expr ) (define rcross-bb image-expr )
where image-expr is an appropriate combination of image procedure calls that results in the given basic block.
(define my-bb image-expr )