ComputerCraft chunkMine (first program)

function startMine()
  turtle.select(1)
  turtle.refuel(5)
  turtle.digDown()
  turtle.down()
end


function stripMine()
  for blockNum=1,15 do
    turtle.dig()
    turtle.forward()
  end
end


function turnRi()
  turtle.turnRight()
  turtle.dig()
  turtle.forward()
  turtle.turnRight()
end


function turnLe()
  turtle.turnLeft()
  turtle.dig()
  turtle.forward()
  turtle.turnLeft()
end


function mainTask()
    stripMine()
    turnRi()
    stripMine()
    turnLe()
    stripMine()
end


function turnRiTwo()
  turtle.turnRight()
  turtle.turnRight()
end


function returnBack()
  turnRiTwo()
  for moveNum=1,15 do
    turtle.forward()
  end
  turnLe()
end


function lastBit()
  turnRi()
  stripMine()
  turtle.turnRight()
  for moveNum=1,15 do
    turtle.forward()
  end
  turtle.turnRight()
end


function AllInOne()
  startMine()
  for someNum=1,4 do
    mainTask()
    returnBack()
  end
  mainTask()
  lastBit()
end

for depth=1,70 do
  AllInOne()
end