логичко - 5 (Највгнездени)

(defun najdlaboko_nivo (lista brojac maksimum)
   (cond
    ((null lista) maksimum)
    ((and (listp (car lista))(> (+ brojac 1) maksimum))
     (max (najdlaboko_nivo (car lista)(+ 1 brojac)(+ 1 brojac))(najdlaboko_nivo (cdr lista) brojac maksimum)))
    (t (najdlaboko_nivo (cdr lista) brojac maksimum))

    ))


(defun izvadi_najdlaboko (lista brojac pomlista prazna)
    (cond
        ((null lista) prazna)
        ((and (listp (car lista))(equal (najdlaboko_nivo pomlista 1 0)(+ 1 brojac)))
         (izvadi_najdlaboko (cdr lista) brojac pomlista (cons (car lista) prazna)))
        ((listp (car lista))(remove 'nil(append (izvadi_najdlaboko (car lista)(+ 1 brojac) pomlista prazna)
                                  (izvadi_najdlaboko (cdr lista) brojac pomlista prazna))))
        (t (izvadi_najdlaboko (cdr lista) brojac pomlista prazna))


        )
    )



(print (izvadi_najdlaboko '(1 2 (3 (4) 5 (6 (7 8 9 4)) 9) ((10 (11 12) 13)) 14) 1 '(1 2 (3 (4) 5 (6 (7 8 9 4)) 9) ((10 (11 12) 13)) 14) '()))