Описать функцию, которая, выдавала бы атом списка по заданному номеру, учитывая все атомы подсписков - Lisp

В этом коде определена функция nth-r, которая принимает два аргумента: lst и n. Функция nth-r использует рекурсию, чтобы пройти по всем элементам списка lst. Если элемент является списком, она вызывает себя для обработки каждого подсписка. Если элемент является атомом, она добавляет его в результат и продолжает обработку следующего элемента. Если элемент является номером, она возвращает соответствующий элемент из списка. Вот список с номерами, описывающими каждый шаг в коде:

1. В строке (defun nth-r (lst n) определяется функция nth-r с двумя аргументами: lst и n.
2. В строке ((flat (s) определяется внутренняя функция flat, которая будет использоваться для обработки списков.
3. В строке (cond ((null s) nil) внутренняя функция flat использует условный оператор cond для проверки, является ли список пустым. Если это так, она возвращает nil.
4. В строке (atom (car s)) (cons (car s) (flat (cdr s)) внутренняя функция flat проверяет, является ли первый элемент списка атомом. Если это так, она добавляет его в результат и вызывает себя для обработки оставшейся части списка.
5. В строке (t (append (flat (car s)) (flat (cdr s)))) внутренняя функция flat использует символ t в качестве другого ветвления условного оператора cond. В этом ветвлении она рекурсивно вызывает себя для обработки первого и второго элементов списка.
6. В строке (nth n (flat lst)) функция nth-r вызывает функцию nth с аргументом n и результатом функции flat, которая обрабатывает список lst.
7. В строке (nth-r '(1 2 3 4) 2) функция nth-r вызывается с аргументами '(1 2 3 4) и 2. Результатом является число 3, которое является вторым элементом списка.
8. В строке (nth-r '(1 (2 (3)) 4) 2) функция nth-r вызывается с аргументами '(1 (2 (3)) 4) и 2. Результатом является число 3, которое является вторым элементом вложенного списка.
9. В строке (nth-r '(1 (2 (3)) 4) 3) функция nth-r вызывается с аргументами '(1 (2 (3)) 4) и 3. Результатом является число 4, которое является третьим элементом вложенного списка.