delay=2
	function drive()
		for x=0,15 do
			if x<15 then
				rs.setBundledOutput("bottom",(2^x)+(2^(x+1)))
				sleep(delay)
				print(2^x)
			else
				rs.setBundledOutput("bottom",(2^x)+1)
				sleep(delay)
				print(2^x)
			end
		end
	end
while true do
	for i=1,4 do
		drive()
		delay=delay/2
	end
	for i=1,4 do
		drive()
		delay=delay*2
	end
end