#| Для этого упражнения нет проверок.
Любое решение будет считаться успешным ответом. |#
(define (up-split painter n)
  (if (= n 0)
      painter
      (let ((smaller (up-split painter (- n 1))))
        (below painter (beside smaller smaller)))))