Соритрање должина на стринг

(defun najmal (lista minimalen)
    (cond
        ((null lista) minimalen)
        ((< (length (car lista))(length minimalen))(najmal (cdr lista)(car lista)))
        (t (najmal (cdr lista) minimalen))
        )
    )


(defun funkcija (lista)
    (najmal lista (car lista))
    )

(defun sortiraj (lista)
    (cond
        ((null lista) nil)
        (t (cons (najmal lista (car lista))(sortiraj(remove (najmal lista (car lista)) lista))))
        )
    )

(print (sortiraj '((1 2 3)(1)(2)(1 2)(5 3 1 1)(3 3))))