DIG

local r = require("robot")
local os = require("os")

function fw(steps)

	steps = steps or 1
	for i=0, steps, +1
	do
		while not r.forward()
		do
			os.sleep(1)
		end
	end
end

function bw(steps)

	steps = steps or 1
	for i=0, steps, +1
	do
		while not r.backward()
		do
			os.sleep(1)
		end
	end
end

function tl(times)
	times = times or 1
	for i=0, steps, +1
	do
		r.turnLeft();
	end
end

function tr(times)
	times = times or 1
	for i=0, steps, +1
	do
		r.turnRight();
	end
end

function processLine(steps)
{
	for i=0, steps, +1
		fw()
		r.useDown()
	end
	tl()
}

while true do
	processLine(6)
	processLine(10)
	processLine(10)
	processLine(9)
	processLine(9)
	processLine(8)
	processLine(8)
	processLine(7)
	processLine(7)
	processLine(6)
	processLine(6)
	processLine(5)
	processLine(5)
	processLine(4)
	processLine(4)
	processLine(3)
	processLine(3)
	processLine(2)
	processLine(2)
	processLine(1)
	tl()
	tl()
	fw(5)
	tr()
	fw()
	tr(2)
	os.sleep(10)
end