Tunnel program

function dig()
    while turtle.detectUp() do
        turtle.digUp()
    end
    while turtle.detect() do
        turtle.dig()
    end
    turtle.digDown()
end

for i=1,128 do
    dig()
    turtle.forward()
end