Застрял на очередной задаче из HTDP:

Есть адресная книга и есть две функции — добавления записи и поиска записи:

(define add-book empty)

(define (add-to-book name phone)
    (set! add-book(cons (list name phone) add-book)))

(define (lookup name ab)
    (cond
        [(empty? ab) false]
        [else (cond
            [(symbol=? (first (first ab name) (second (first ab))]
        [else (lookup name (rest ab))])]))

Не могу написать функцию удаления записи: (define (del name) ....

Желаетельно использую только те примитивные конструкции, которые
использованы в этих двух функциях (так как все это для обучения).

Заранее спасибо.