RosettaCodeData/Task/Loops-Do-while/Emacs-Lisp/loops-do-while-2.l

(let ((val 0) done)
  (while (not done)
    (setq val (1+ val))
    (message "%d" val)
    (setq done (zerop (mod val 6)))))