Lisp рекурсия

[Nicko_mt]

Доброго времени суток.Задание такое
Составить рекурсивную программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке. Например, для числа 1234 получаем ответ 4321. Использовать рекурсивный вызов.Проблема в том что выводится только одно значение с конца.Как изменить чтобы выводилось всё число?

defun reverse1 (n) (print (mod n 10))(if (and(< (mod n 10) 0) (> (mod n 10) 0))  (reserve1 (mod n 10)))

Заранее благодарен.

[Nicko_mt]

(defun DIV (X Y)
 (cond
  ((zerop Y) nil)
  ((< X Y) 0)
  ((> X Y) (1+ (DIV (- X Y) Y)))))
defun reverse1 (n) (print (mod n 10))(if (and(< (div n 10) 0) (> (div n 10) 0))  (reserve1 (div n 10)))
 
(reverse1 2345)

Поправки к программе.Однако вывод всё равно не полный.Я как понимаю здесь скорее всего проблема в print. Например в Паскале есть функция write которая дописывает число а print я как понял пишет заново.

[Kingdom_Reborn]

(defun proc (x y)
	(cond 
		((= x 0) y)
		(t (proc (round (/ x 10)) (+ (* y 10) (mod x 10))))
	)
)
(defun reverse (x) (proc x 0))

(print (reverse 12345))

[Nicko_mt]

Благодарю за ответ.В итоге реализовал алгоритм реверсом строки.Действий в процедуре меньше выходит.