1 (define (element-of-set? x set)
2   (cond ((null? set) false)
3 	((= x (car set)) true)
4 	((< x (car set)) false)
5 	(else (element-of-set? x (cdr set)))))