Walking Down a Tree

(define (tree.farthest node-or-leaf)
  (if (is-node? node-or-leaf)
      (tree.farthest
        (node.outside node-or-leaf))
      (leaf.point node-or-leaf)))

Jim Miller