6 lines
125 B
EmacsLisp
6 lines
125 B
EmacsLisp
|
(let ((val 0))
|
||
|
|
(while (progn
|
||
|
|
(setq val (1+ val))
|
||
|
|
(message "%d" val)
|
||
|
|
(/= 0 (mod val 6)))))
|