6 ;; Exercise 2.67. Define an encoding tree and a sample message:
8 (make-code-tree (make-leaf 'A 4)
11 (make-code-tree (make-leaf 'D 1)
13 (define sample-message '(0 1 1 0 0 1 0 1 0 1 1 1 0))
15 (check equal? (decode sample-message sample-tree) '(A D A B B C A))