1 665c255d 2023-08-04 jrmu (define (up-split painter n)
2 665c255d 2023-08-04 jrmu   (if (zero? n)
3 665c255d 2023-08-04 jrmu       painter
4 665c255d 2023-08-04 jrmu       (let ((smaller (up-split painter (- n 1))))
5 665c255d 2023-08-04 jrmu 	(below painter (beside smaller smaller)))))