(defun dep (lista d maxd)    ;MAX 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))))
        )
    )