Подзагради

(defun podzagradi (lista)
    (cond
        (cond
        ((null lista) nil)
        ((null (car(cdr lista)))(cons lista nil))
        ((>= (car lista)(car (cdr lista)))(cons (list (car (cdr lista))(car lista))(podzagradi (cddr lista))))
        ((< (car lista)(car(cdr lista)))(cons (list (car lista)(car (cdr lista)))(podzagradi (cddr lista))))
        )
        )
    )