; test while

(setq x 10)
(setq y 10)
(while (< x 100) (setq y (+ x y)) (setq x (+ x 1)))
x
y