연습문제 2.31

;; ex 2-31
(define (tree-map f tree)
  (map (lambda (subtree)
         (if (pair? subtree)
             (tree-map f subtree)
             (f subtree))) tree))

(define (square-tree-abstract tree)
  (tree-map square tree))