Найти максимальный уровень вложенности заданного списка - Lisp

Помогите написать программу, которая находит максимальный уровень вложенности заданного списка. Заранее спасибо ^^

Листинг программы

(defun depth (lst)
  (cond
  ((atom lst) 0)
  ((null lst) 0)
    (T (max
    (+ 1 (depth (car lst)))
    (depth (cdr lst))
    ))))

Объяснение кода листинга программы

В данном коде определен функционал для нахождения максимального уровня вложенности списка.

defun определяет функцию с именем depth, которая принимает один аргумент lst.
В функции используется cond для проверки трех условий:
- Если lst является атомом (является листом), то возвращается 0.
- Если lst равен nil (пустой список), то возвращается 0.
- В противном случае (т.е. lst не является атомом или nil), используется max для нахождения максимального значения из двух:
  - 1, если текущий элемент ( car lst) является списком, и в этом случае рекурсивно вызывается depth для этого элемента, и результат увеличивается на 1.
  - результат вызова depth для cdr lst, то есть для оставшейся части списка.
Функция depth возвращает максимальное значение уровня вложенности списка.