Alchemical Digging Turtle makes SAND

t=peripheral.wrap("right")

function digCobble()
  turtle.select(1)
  while turtle.getItemCount(1)~=4 do
    turtle.dig()
    sleep(2)
  end
end

function makeFlint(f)
for flint=1,f do
    digCobble()
    t.transmuteItem()
    turtle.transferTo(16)
    flint=flint+1
end
end

while t.getMiniumCharge()>6 do
  makeFlint(2)
  turtle.select(16)
  t.transmuteItem()
  t.transmuteItem()
  t.transmuteItem(1)
  t.transmuteItem(1)
  turtle.select(16)
  turtle.transferTo(1)
  turtle.select(1)
  turtle.dropDown()
end