RosettaCodeData/Task/Loops-While/Cache-ObjectScript/loops-while.cos

WHILELOOP
    set x = 1024
    while (x > 0) {
        write x,!
        set x = (x \ 2)    ; using non-integer division will never get to 0
    }
	
    quit