(define (assoc key tbl) (if (null? tbl) #f (if (eq? key (car (car tbl))) (car tbl) (assoc key (cdr tbl)))))
