Inventory Manager

local component = require("component")
local sides = require("sides")
local rsi = component.block_refinedstorage_interface
local term = require("term")
local allItems = rsi.getItems()
local instorage = 0
local extract_count = 10

--Table with key value paris for items to monitor and delete
monitored_items = {["Soul Sand"] = 72000, ["Rotten Flesh"] = 500, ["Solidified Experience"] = 300000, ["Glass Bottle"] = 5000, ["Wither Dust"] = 64, Arrow = 64, Stick = 2500, Andesite = 50000, Sand = 175000, Dirt = 50000, Bone = 100000, Gravel = 50000, Cactus = 25000, Bow = 1, Cobblestone = 100000, Dirt = 100000, Granite = 80000}
while true do
  allItems = rsi.getItems()
  for mon_item, count in pairs (monitored_items) do
    for i, item in ipairs(allItems) do
      if(item.label == mon_item) then
        --print(item.size)
        --Determine how much is in storage
        instorage = item.size
        while instorage > count do
          rsi.extractItem(allItems[i],extract_count, sides.back)
          instorage = instorage - extract_count
          term.clear()
          print(mon_item)
          print(instorage)
        end
      end
    end
  end
  instorage = 0
  term.clear()
  print("Sleeping - Press CTRL + ALT + C To Close")
  os.sleep(10)
end