1 665c255d 2023-08-04 jrmu (define (split combine-main combine-smaller)
2 665c255d 2023-08-04 jrmu   (lambda (painter n)
3 665c255d 2023-08-04 jrmu     (if (zero? n)
4 665c255d 2023-08-04 jrmu 	painter
5 665c255d 2023-08-04 jrmu 	(let ((smaller ((split combine-main combine-smaller) painter (- n 1))))
6 665c255d 2023-08-04 jrmu 	  (combine-main painter (combine-smaller smaller smaller))))))