2008-04-15 Ex 2.31 SICP (define (tree-map f t) (map (lambda (x) (if (pair? x) (tree-map f x) (f x))) t))