(defun menor(lista)
   (cond ((null lista) 32767 )
         (t (min (first lista) (menor (rest lista))))))

(defun selectsort (lista)
   (cond ((null lista) nil)
         (t (cons (menor lista) (selectsort (elimina (menor lista) lista))))))

(defun elimina(elem lista)
  (cond ((null lista) nil)
        ((eql elem (first lista)) (rest lista))
        (t (cons (first lista) (elimina elem (rest lista))))))
