Ex-2.61

(define (adjoin-set x set)
  (cond
   ((null? set) (list x))
   ((< x (car set)) (cons x set))
   (else
    (cons (car set) (adjoin-set x (cdr set))))))