1 665c255d 2023-08-04 jrmu (define (square-of-four tl tr bl br)
2 665c255d 2023-08-04 jrmu   (lambda (painter)
3 665c255d 2023-08-04 jrmu     (let ((top (beside (tl painter) (tr painter)))
4 665c255d 2023-08-04 jrmu 	  (bottom (beside (bl painter) (br painter))))
5 665c255d 2023-08-04 jrmu       (below bottom top))))