begin
	comment Loops/While - algol60 - 21/10/2014;
	integer i;
	for i:=1024,i div 2 while i>0 do outinteger(1,i)
end