function xFuel()
	turtle.select(16)
	turtle.refuel()
	turtle.select(1)
end

function xGetCoalIfNeeded()
	if turtle.getFuelLevel() <= 1000 then
		turtle.back()
		turtle.turnRight()

		for n=1,6 do
			turtle.dig()
			turtle.forward()
		end

        turtle.suckDown(64)
		xFuel()

		turtle.turnRight()
		turtle.turnRight()

		for n=1,6 do
			turtle.dig()
			turtle.forward()
		end
		turtle.turnRight()
		turtle.forward()
    end
	turtle.select(1)
end

function xTakeSapling()
	xGetCoalIfNeeded()
	turtle.back()
	turtle.turnRight()

	for n=1,6 do
		turtle.dig()
		turtle.forward()
	end

	turtle.digUp()
	turtle.up()
	turtle.dig()
	turtle.forward()
	turtle.dig()
	turtle.forward()
	turtle.digDown()
	turtle.down()

	for m=1,15 do
		turtle.select(m)
		turtle.suckDown()
	end

	turtle.digUp()
	turtle.up()
	turtle.turnRight()
	turtle.turnRight()
	turtle.dig()
	turtle.forward()
	turtle.dig()
	turtle.forward()
	turtle.digDown()
	turtle.down()

	for n=1,6 do
		turtle.dig()
		turtle.forward()
	end

	turtle.turnRight()
	turtle.forward()
	for p=1,15 do
		turtle.select(p)
		turtle.drop()
	end
end

while true do
	xTakeSapling()
	os.sleep(3600)
end