1 (define wave2 (besides wave (flip-vert wave)))
2 (define wave4 (below wave2 wave2))
3 (define (flipped-pairs painter)
4   (let ((painter2 (besides painter (flip-vert painter))))
5     (below painter2 painter2)))
6 (define wave4 (flipped-pairs wave))
7 (define (right-split painter n)
8   (if (= n 0)
9       painter
10       (let ((smaller (right-split painter (- n 1))))
11 	(beside painter (below smaller smaller)))))