RosettaCodeData/Task/Loops-While/Inform-7/loops-while-1.inf

let N be 1024;
while N > 0:
	say "[N][line break]";
	let N be N / 2;