1 (define (split combine-main combine-smaller)
2   (lambda (painter n)
3     (if (zero? n)
4 	painter
5 	(let ((smaller ((split combine-main combine-smaller) painter (- n 1))))
6 	  (combine-main painter (combine-smaller smaller smaller))))))