zongors-reality-engine/test/loop.lisp

(let ((a 5.0))
 (do (i (5000 0 -1))
  (set a (+ a 5.0)))
 (let ((b (itou a)))
  (puts "Enter a string:")
  (let ((user-string (gets)))
   (puts (rtos a))
   (puts (utos b))
   (puts user-string))))