chop.lua

function suckRow(count)
    if count == nil then
        count = 1
    end
    for i = 1, count do
        if not i == 1 then
            while not turtle.forward() do
                turtle.dig()
            end
        end
        turtle.suck()
    end
end

function left()
    turtle.turnLeft()
end

function right()
    turtle.turnRight()
end

function up(count)
    if count == nil then
        count = 1
    end
    for i = 1, count do
        while not turtle.up() do
            turtle.digUp()
        end
    end
end

function down(count)
    if count == nil then
        count = 1
    end
    for i = 1, count do
        while not turtle.down() do
            turtle.digDown()
        end
    end
end

function forward(count)
    if count == nil then
        count =  1
    end
    for i = 1, count do
        while not turtle.forward() do
            turtle.dig()
        end
    end
end

function chop()
    up(count)
    down(count)
end

function chopRow(length, height, count)
    for i = 1, count do
        if not count == 1 then
            forwasrd(length)
        end
        up(height)
        down(height)
    end
end

forward(1)
chopRow(4, 6, 3)
left()
forward(length)
left()
chopRow(4, 6, 3)
right()
forward(length)
right()
chopRow(4, 6, 3)
forward(2)
left()
forward(2)
left()
for i = 1, 6 do
    suckRow(13)
    left()
    suckRow(1)
    left()
    suckRow(13)
    right()
    suckRow(1)
    right()
end
suckRow(13)
right()
forward(2)
right()
forward(1)