(let x 0)
(while (!= x 10000)
    (set x (+ 1 x))
    (print x)
)