Lisp общие делители чисел

[FridGe]

В общем есть код, который находит общие делители нескольких чисел.

(defun dividers (num1 num2 n) 
    (cond
        ( (AND (<= n num1) (<= n num2) (= (mod num1 n) 0)(= (mod num2 n) 0)) (print n) (setq n (+ n 1)) (dividers num1 num2 n) )
        ((AND (<= n num1) (<= n num2)) (setq n (+ n 1)) (dividers num1 num2 n))
        ( (OR (> n num1) (> n num2)) nil)
    ))

Нужно его немного модифицировать, именно по простому, без использования различных функций. Допустим мы вводим 2 числа "64 32", у нас находит общие делители "1 2 4 8 16 32", нам же нужно, что бы в ответе проверяло если следующее число делится на предыдущее без остатка, то его не выводим, т.е. нам нужно что бы вывело только "1 2"