1 (define (lookup given-key set-of-records)
2   (cond ((null? set-of-records) false)
3 	((equal? given