RosettaCodeData/Task/Loops-Do-while/Common-Lisp/loops-do-while-1.lisp

(let ((val 0))
  (loop do
        (incf val)
        (print val)
        while (/= 0 (mod val 6))))