(define assoc
　(lambda (key alist)
　　(cond ((null? alist)
　　　　　　　#f)
　　　　　　((equal? key (caar alist)))
　　　　　　　(car alist))
　　　　　　(else
　　　　　　　(assoc key (cdr alist))))))