程序在 AutoLisp 中不能运行？？？？？？？

求水仙花数(153=1*1*1+5*5*5+3*3*3)不能在AutoLisp 中运行，下面是我写的程序，请各位大虾多多指教，我是个新手。
是不是我的程序错了，或者要怎么操作，请多多指教
(defun c:sxh (/ n n1 n2 n3 s)
(setq n 100)
(while (<= n 999) (setq n1 (/ n 100))
(setq n2 (/ (- n (* n1 100)) 10))
(setq n3 (- n (* n1 100) (* n2 10)))
(setq s (+ (* n1 n1 n1) (* n2 n2 n2) (* n3 n3 n3)))
(if (= s n) (princ (strcat "\n" (rtos n))))
(setq n (+ n 1))
)
(princ)
)