6 lines
125 B
Text
6 lines
125 B
Text
|
(let ((val 0) done)
|
||
|
|
(while (not done)
|
||
|
|
(setq val (1+ val))
|
||
|
|
(message "%d" val)
|
||
|
|
(setq done (zerop (mod val 6)))))
|