Pasted

local chest = peripheral.wrap("tileskychest_0")
local apiary = peripheral.wrap("right")
local pattern = peripheral.wrap("left")
local species = nil
function IsApiaryDone()
    if apiary.getAllStacks()[1] == nil then
        return true
    else
        return false
    end
end
function Split(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                t[i] = str
                i = i + 1
        end
        return t
end
function GetSpecies ()
    bee = pattern.getAllStacks()
    if bee[1] == nil then
        printError("No species bee")
        error()
    end
    species = Split(bee[1].basic().display_name," ")[1]
end
 
function findWrongPrincess ()
    bee = chest.getAllStacks()
    for k,v in pairs(bee) do
        if v.basic().id == "Forestry:beePrincessGE" then
            if species ~= Split(v.basic().display_name," ")[1] then
                chest.pushItem("west",k)
                return
            end
        end
    end
    printError("No princess to work with")
    error()
end
 
GetSpecies()
while true do
    sleep(1)
    if (IsApiaryDone()) then
        findWrongPrincess ()
    end
end