#| BEGIN (Write your solution here) |#
(define (successive-merge leaf-set)
    (cond ((null? (cdr leaf-set)) (car leaf-set))
          (else (successive-merge (adjoin-set (make-code-tree (car leaf-set) (cadr leaf-set)) (cddr leaf-set))))
    )
)

#| END |#