(defun depth (lista dep maxdep)    ;nacin1 za maksimalna dlabocina
    (cond
        ((null lista) maxdep)
        ((> dep maxdep) (depth (cdr lista) dep dep))
        ((listp (car lista))
            (setq pom (depth (car lista) (+ 1 dep) maxdep))
            (if (> pom maxdep) (depth (cdr lista) dep pom) (depth (cdr lista) dep maxdep)))
        (T (depth (cdr lista) dep maxdep))
        )
    )

(defun deps (lista dep maxdep)    ;nacin2 za maksimalna dlabocina
    (cond
        ((null lista) maxdep)
        ((> dep maxdep) (deps (cdr lista) dep dep))
        ((atom (car lista)) (deps (cdr lista) dep maxdep))
        (T (deps (cdr lista) dep (deps (car lista) (+ 1 dep) maxdep)))
        )
    )

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