((lambda (assoc k v) (assoc k v)) '(lambda (k v) (cond ((eq v '()) nil) ((eq (car (car v)) k) (car v)) ('t (assoc k (cdr v))))) 'Orange '((Apple . 120) (Orange . 210) (Lemon . 180)))