1 (define (square-of-four tl tr bl br)
2   (lambda (painter)
3     (let ((top (beside (tl painter) (tr painter)))
4 	  (bottom (beside (bl painter) (br painter))))
5       (below bottom top))))