(defun InsertaOrdenado(Elem Lista)
  (cond ((null Lista) list Elem))
        ((< Elem(first Lista))(cons Elem Lista))
        (t (cons (first  Lista)(InsertaOrdenado Elem(rest Lista))
                 )
           )
        )
  )

(defun Ordena(Lista)
  (cond ((null Lista) nil)
        (t (InsertaOrdenado(first Lista)(Ordena(rest Lista))
          ) 
        )
  )
)

