1 665c255d 2023-08-04 jrmu (define (lookup given-key set-of-records)
2 665c255d 2023-08-04 jrmu   (cond ((null? set-of-records) false)
3 665c255d 2023-08-04 jrmu 	((equal? given