Process

inputDirection = 4
macerateDirection = 1
furnaceDirection = 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

furnace = Set {197311, 709385, 774921, 807689, 840457, 9368761, 971529, 7918345, 7951113, 7983881, 8016649, 8049417, 8082185, 20257, 53025, 1068833, 1101601, 1134369, 1167137}
macerate = Set {14, 15, 16, 21, 244, 33012, 245, 248, 249, 33017, 65785, 688, 33471, 66239, 230079, 262847, 295615, 361151, 313919, 2001, 34769, 67537, 100305, 133073}

while true do
  sleep(0)
  for uuid, amount in pairs(sorter.list(inputDirection)) do
    if macerate[uuid] then
      sorter.extract(inputDirection, uuid, macerateDirection, amount)
    elseif furnace[uuid] then
      sorter.extract(inputDirection, uuid, furnaceDirection, amount)
    else
      sorter.extract(inputDirection, uuid, sortDirection, amount)
    end
  end
end