;Map на листья дерева
(define (tree-map f tree)
  (if (null? tree)
      '()
      (if (pair? tree)
          (cons (tree-map f (car tree))  (tree-map f (cdr tree)))
          (f tree))))