(defun min1(f)
 (cond 
  ((null f) nil)
  (1 (min2 (car f) (cdr f)))
 )
)

(defun min2(c f)
 (cond 
  ((null f) c)
  ((> c (car f)) (min2 (car f) (cdr f)))
  (1 (min2 c (cdr f)))
 )
)

(defun remove(c f)
 (cond 
  ((null f) nil)
  ((= c (car f)) (cdr f))
  (1 (cons (car f) (remove c (cdr f))))
 )
)


(defun sort(f)
 (cond
   ((null f) nil)
   (1 (cons (min1 f) (sort (remove (min1 f) f))))
  )
)


(sort '(2 3 1 5 5 6))
(system)