1 (define (make-table)
2   (let ((local-table (list '*table*)))
3     (define (locate key otherkeys table)
4       (let ((value (assoc key (cdr table))))