local copymember = {
    ['function'] = function(val, memo)
        local copy;
        local err = pcall(function() --handling the error is faster than getting debug info
            copy = loadstring(string.dump(val))
        end)
        if (err)
            return val
        end
        
        for i=1,i<debug.getinfo(val,'u').ups do
            debug.setupvalue(copy, i,  debug.getupvalue(val, i))
        end
        memo[val] = copy
        return copy
    end
}
setmetatable(copymember, {__call = function(val, memo) 
    return copymember[type(val)] and copymember[type(val)](val, memo) or val
end})

function deepcopy(orig, memo)
    memo = memo or {}
    local orig_type = type(orig)
    local copy
    if orig_type == 'table' then
        copy = {}
        memo[orig] = copy
        for orig_key, orig_value in next, orig, nil do
            copy[memo[orig_key] or deepcopy(orig_key, memo)] = memo[orig_value] or deepcopy(orig_value, memo)
        end
        setmetatable(copy, memo[getmetatable(orig)] or deepcopy(getmetatable(orig), memo))
    else -- number, string, boolean, etc
        copy = memo[val] or copymember(orig, memo)
    end
    return copy
end