>>752

(define (assoc key alist)
　(and alist
　　(let loop ((ls alist))
　　　(if (equal? key (caar ls))
　　　　(car ls)
　　　　　(loop (cdr ls))))))