Create a new version of paste:

local SLEEP_MAIN_LOOP_WAIT = 5000
local TURTLE_INVENTORY_SIZE = 16
local TO_PACK_NAME = 'ExtraUtilities:cobblestone_compressed'
local TO_PACK_META = 2
local PRODUCT_NAME = 'ExtraUtilities:cobblestone_compressed'
local PRODUCT_META = 3

function init()
    turtle.equipLeft()
    turtle.equipLeft()
    turtle.equipRight()
    turtle.equipRight()
end

function garbage_all()
    local i = TURTLE_INVENTORY_SIZE

    while i > 0 do
        turtle.select(i)
        turtle.dropDown()
        i = i - 1
    end
end

function select_item(item, meta, out_workbench, inv_map, min_slot)
    local slot = 1
    local data

    if min_slot then
        slot = min_slot
    end
    while slot <= TURTLE_INVENTORY_SIZE do
        if not inv_map then
            data = turtle.getItemDetail(slot)
        else
            data = inv_map[slot]
        end
        if data and data.name == item and (not meta or meta == data.damage) and (not out_workbench or slot == 4 or slot == 8 or slot >= 12) then
            turtle.select(slot)
            return slot
        end
        slot = slot + 1
    end
    return false
end

function is_full()
    local slot
    local data
    local empty
    local inv_map = {}

    slot = TURTLE_INVENTORY_SIZE
    empty = 0
    while slot > 0 do
        data = turtle.getItemDetail(slot)
        if not data then
            return false
        end
        inv_map[#inv_map + 1] = data
        slot = slot - 1
    end
    return inv_map
end

function is_empty()
    local slot
    local data
    local empty
    local retval
    local inv_map = {}

    slot = TURTLE_INVENTORY_SIZE
    empty = 0
    retval = true
    while slot > 0 do
        data = turtle.getItemDetail(slot)
        if data then
            inv_map[#inv_map + 1] = data
            retval = false
        else
            inv_map[#inv_map + 1] = false
        end
        slot = slot - 1
    end
    return retval, inv_map
end

function get_cobblestone()
    local i

    i = 0
    while i < 9 and turtle.suck() do
        i = i + 1
    end
    return i == 9
end

function get_empty_slot_in_workbench(minslot)
    local slot

    slot = 1
    if minslot then
        slot = minslot
    end
    while slot < 12 do
        if slot ~= 4 and slot ~= 8 and not turtle.getItemDetail(slot) then
            return slot
        end
        slot = slot + 1
    end
    return false
end

function prepare_craft_compressed()
    local slot

    if not get_cobblestone() then
        sleep_mode()
        return false
    end
    slot = get_empty_slot_in_workbench()
    while slot do
        if not select_item(TO_PACK_NAME, TO_PACK_META, true, nil, 4) then
            return false
        end
        turtle.transferTo(slot)
        slot = get_empty_slot_in_workbench()
    end
    return true
end

function drop_to_chest(inv_map)
    local min_slot

    min_slot = select_item(PRODUCT_NAME, PRODUCT_META)
    while min_slot and turtle.dropUp() do
        min_slot = select_item(PRODUCT_NAME, PRODUCT_META, nil, inv_map, min_slot + 1)
    end
    min_slot = select_item(TO_PACK_NAME, TO_PACK_META)
    while min_slot do
        if not turtle.drop() then
            turtle.dropDown()
        end
        min_slot = select_item(TO_PACK_NAME, TO_PACK_META, nil, inv_map, min_slot + 1)
    end
    return not select_item(PRODUCT_NAME, PRODUCT_META)
end

function sleep_mode()
    print(os.time() .. ': Waiting coblestone or space to drop.')
    sleep(SLEEP_MAIN_LOOP_WAIT)
end

function core()
    local inv_map
    local res

    while true do
        res, inv_map = is_empty()
        if not res then
            if not drop_to_chest() then
                sleep_mode()
            end
            garbage_all()
        else
            if prepare_craft_compressed() then
                turtle.craft()
            end
            drop_to_chest()
        end
    end
end

init()
core()