(define preorder (lambda (tree) (preorder-onto tree '()))) (define preorder-onto (lambda (tree list) (if (empty-tree? tree) list (cons __?__ __?__ ))))