연습문제 2.45

(define (split pos1 pos2)
  (lambda (painter n)
    (if (= n 0)
        painter
        (let ((smaller ((split pos1 pos2 ) painter (- n 1))))
          (pos1 painter (pos2 smaller smaller))))))