(defun c:rc ( / )
(while (< a b)
  (setq a (1+ a))
  (setq count (1+ count))
  (princ (strcat "\n" (itoa count)))
  (c:rc)
)
(setq a (+ a 1))
(princ "\nEnd ")
)