(defun selectsort(lista)
      (if (null lista) ;then
         nil
      ;else
          (if (< (first lista) (min (rest lista))) ;then
                 (cons (first lista) (selectsort (rest lista)))
           ;else
               (cons (min (rest lista)) (selectsort (cons (first lista) (menos (min (rest lista)) (rest lista))))))
))

(defun menos(m lista)
   (if (= m (first lista));then 
        (rest lista)
   ;else
        (cons (first lista) (menos m (rest lista)))))  