연습문제 2.61

(define (adjoin-set x set)
  (cond ((null? set) (cons x '()))
        ((< x (car set)) (cons x set))
        ((element-of-set? x set) set)
        (else
         (cons (car set) (adjoin-set x (cdr set))))))