(loop for a from 0 below 10000 by 2
      do (format t "value of i: ~d q: ~d~%" a (1+ a)))