RosettaCodeData/Task/Loops-While/XLISP/loops-while.l

(DEFINE I 1024)

(WHILE (>= I 1)
    (PRINT I)
    (DEFINE I (/ I 2)))