trav

[procedure] trav f base tree

(def trav (f base tree)
  (if (atom tree)
      (base tree)
      (f (trav f base (car tree)) (trav f base (cdr tree)))))