(define (leaf? t)
      (and (empty-tree? (left-tree t))
           (empty-tree? (right-tree t))))

(define (grow t v)
  (if (leaf? t) (make-tree (root t) (leaf v) (leaf v))
      (make-tree (root t) (grow (left-tree t) v) (grow (right-tree t) v))))