(defun read-input(p)
(cond
   ((null p) nil)
   (T (cons p (read-input (read nil nil))))
)
)

(defun readinput(i)
    (cdr (read-input 1))
)


(defun dep (lista d maxd)       ;maksimalna dlabocina
    (cond
        ((null lista) maxd)
        ((atom (car lista)) (dep (cdr lista) d maxd))
        (T (dep (cdr lista) d (dep (car lista) (+ 1 d) (max (+ 1 d) maxd))))
        )
    )


(defun najdlaboko (lista dep maxdep)
    (cond
        ((null lista) nil)
        ((and (listp (car lista)) (eq maxdep (+ 1 dep)))
           (cons (car lista) (najdlaboko (cdr lista) dep maxdep)))
        ((and (listp (car lista)) (not(eq maxdep (+ 1 dep))))
           (append (najdlaboko (car lista) (+ 1 dep) maxdep) (najdlaboko (cdr lista) dep maxdep)))
        (T (najdlaboko (cdr lista) dep maxdep))
        )
    )



(setq maxd(dep '(1 2 (3 (4) 5 (6 (7 8)) 9) ((10 (11 12) 13)) 14) 0 0))
(print (najdlaboko '(1 2 (3 (4) 5 (6 (7 8)) 9) ((10 (11 12) 13)) 14) 0 maxd))