Common Lisp

Определите рекурсивно функцию, которая принимает единственный аргумент - список с возможными подсписками. Функция должна возвращать самый первый атом, т.е. самый левый нижний при рассмотрении такой списковой структуры в качестве дерева.

Примеры

(first-atom '(((a) 2 b) 4) => A

(first-atom ()) => NIL

PS: пользуюсь компилятором clisp