SICP 2.31

(define (tree-map proc root)
  (map (lambda (children)
         (cond ((null? children) null)
               ((pair? children) (tree-map proc children))
               (else (proc children))))
       root))

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