treemon

function tosky()
 height = 0
 while turtle.detectUp() do
  turtle.digUp()
  turtle.up()
  height = height+1
 end
 while height >0 do
  turtle.down()
  height = height-1
 end
end

function dumpAll()
 local i=2
 while i<16 do
  turtle.select(i)
  turtle.dropDown()
  i = i + 1
 end
end

print("Place facing a sapling, put more saplings in the first slot")

while true do
 turtle.up()
 while not turtle.detect() do
  turtle.back()
  sleep(10)
  turtle.forward()
 end
 turtle.down()
 turtle.dig()
 turtle.forward()
 tosky()
 turtle.back()
 turtle.select(1)
 turtle.place()
 dumpAll()
end