; ;;(cl:copy-tree '(5 (5 6 7(6 7)))) (define (cl:copy-tree x) (if (pair? x) (cons (cl:copy-tree (car x)) (cl:copy-tree (cdr x))) x))