(define (treemap fn tree)
  (make-tree (fn (datum tree))
	     (forest-map fn (children tree))))

(define (forest-map fn forest)
  (if (null? forest)
      '()
      (cons (treemap fn (car forest))
	    (forest-map fn (cdr forest)))))