RosettaCodeData/Task/Loops-While/REBOL/loops-while.rebol

REBOL [
	Title: "Loop/While"
	URL: http://rosettacode.org/wiki/Loop/While
]

value: 1024
while [value > 0][
	print value
	value: to-integer value / 2
]