Sorting Ores Ingots Gems

s=peripheral.wrap("left")

oP={14,15,2001,688,200,67537,164060,33471,34769,133073,196821,100305}
--ores
iP={9264,265,266,9270,7780,938760,774920,136339,103571,169107,971528}
--ingots
gP={263,30128,30243,348,331,5267,388,264,201070,233838,38035,70803,131423,201875}
--gems

function sortable(table,element)
  for key,value in pairs(table) do
    if value==element then
      return true
    end
  end
  return false
end

function sorter()
while true do
event,item,count=os.pullEvent("isort_item")
  if sortable(oP,item)==true then
    s.sort(0)
  elseif sortable(iP,item)==true then
    s.sort(5)
  elseif sortable(gP,item)==true then
    s.sort(1)
  else
    s.sort(3)
end
end
end

sorter()