(define (distance node-or-leaf) (if (is-node? node-or-leaf) (node.distance node-or-leaf) (point.to-origin (leaf.point node-or-leaf))))
