Кто-нить помогите плиз решить

Найти наибольший общий делитель для чисел в простом списке

пример работы
(list_nod '(10 20 30))

ответ - 10


я пытался сделать, получилось пока вот что

(defun nod_step (x y)

    (if (> x y) (- x y) (- y x))

)

(defun list-nod (l)

 

 

; цикл, если l = atom то всё, если нет, то делать ('nod (l (cdr l)))

 

 

)

(defun nod (l1 l2)

    (mapcar 'nod_step l1 l2)

)