farm

local function g(n)
 for i=1, n do
 while(not turtle.forward()) do
 turtle.dig()
 end
 end
end
local function f(n)
 for i=1, n do
 turtle.forward()
 end
end
local function r(n)
 for i=1, n do
 turtle.turnRight()
 end
end
local function l(n)
 for i=1, n do
 turtle.turnLeft()
 end
end
while true do
 os.pullEvent("redstone")
 if rs.getInput("back") then
 if turtle.getFuelLevel() < 200 then
 turtle.select(1)
 turtle.place()
 turtle.refuel()
 end
   sleep(5)
  g(7)
 r(1)
 g(1)
 r(1)
 g(6)
 l(1)
 g(1)
 l(1)
 g(6)
 r(1)
 g(1)
 r(1)
 g(2)
 r(1)
 f(1)
 l(1)
 f(2)
 l(1)
 g(1)
 r(1)
 g(2)
 l(1)
 g(1)
 l(1)
 g(6)
 r(1)
 g(1)
 r(1)
 g(6)
 l(1)
 g(1)
 l(1)
 g(6)
 turtle.digDown()
 turtle.down()
 l(1)
 g(6)
 l(1)
 g(1)
 l(1)
 g(6)
 r(1)
 g(1)
 r(1)
 g(6)
 l(1)
 g(1)
 l(1)
 g(6)
 r(1)
 g(1)
 r(1)
 g(6)
 l(1)
 g(1)
 l(1)
 g(6)
 r(1)
 g(1)
 r(1)
 g(6)
 turtle.up()
 l(1)
 f(1)
 r(2)
 end
end