Scheme - 显示二叉树

Question

我完全开始了我的计划生涯，并且在过去的几天里，我一直在努力解决代码中的问题。我的任务是编写一个显示二叉树的函数。这就是我迄今所做的：

(define (get-pair t) (list (list-ref t 0) (list-ref t 1)))
(define (get-left t) (cadr t))
(define (get-right t) (caddr t))
    (define (print-tree tree) 
      (if (not (null? tree))       
       (begin
          (print-tree (get-left tree))
          (display (get-pair tree))
          (print-tree (get-right tree))
        )
       )
    ) 

不幸的是，由于功能编程的规则，我不能使用＆list; ref-ref;＆＃39;命令（就像＆＃39;追加＆＃39;，＆＃39; list tail＆＃39;，＆＃39; vector＆＃39;等等）。我有点卡住，因此我有一个问题：是否有可能交换这部分代码或者我应该重新启动整个功能吗？