keep earnest to your life

-- If I ever had a little serious, now may will not miss so much.

clone = function(object)
    local lookup_table = {}
    local function _copy(object)
        if type(object)  ~=  "table" then
            return object
        elseif lookup_table[object] then
            return lookup_table[object]
        end
        local new_table = {}
        lookup_table[object] = new_table
        for index , value in pairs(object) do
            new_table[_copy(index)] = _copy(value)
        end
        return setmetatable(new_table , getmetatable(object))
    end
    return _copy(object)
end

print_order = function( list ,list_ret)
     if #list <= 0 then 
         print(table.concat(list_ret," "))
         return 
     end
     for _,v in ipairs(list) do
         local list2 = clone(list)
         local list2_ret = clone(list_ret)
         if next(list2_ret) and next(list2) and list2_ret[#list2_ret] + list2[_] == 7 or list2_ret[3] and list2_ret[3] ==3 then
         else
             table.insert(list2_ret,table.remove(list2,_))
             print_order(list2,list2_ret)
         end
     end
end