Process 2

inputDirection = 4
extractDirection = 1
compressDirectoin = 0
sortDirection = 5

sorter = peripheral.wrap("back")

function Set (list)
  local set = {}
  for _, l in ipairs(list) do set[l] = true end
  return set
end

compress = Set {545545,30243, 302455, 30151}
extractor = Set {627, 30217}

while true do
  sleep(0)
  event, uuid, amount = os.pullEvent("isort_item")
  if compress[uuid] then
    sorter.sort(compressDirection)
  elseif extractor[uuid] then
    sorter.sort(extractDirection)
  else
    sorter.sort(sortDirection)
  end
end