Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (define (up-split painter n)

2   (if (zero? n)

3       painter

4       (let ((smaller (up-split painter (- n 1))))

5 	(below painter (beside smaller smaller)))))