ex2.45.scm

(define (right-split painter n)
  (if (= n 0)
      painter
      (let ((smaller (right-split painter (- n 1))))
        (beside painter (below smaller smaller)))))



(define (up-split painter n)
    (if (= n 0)
        painter
        (let ((smaller (up-split painter (- n 1))))
            (below painter (beside smaller smaller)))))



(define (split prog1 prog2)
    (lambda (painter n) 
        (if (= n 0)
            painter
            (let ((smaller ((split prog1 prog2) painter (- n 1))))
                (prog1 painter (prog2 smaller smaller))))))







(define right-split (split beside below))
(define up-split (split below beside))