local a , b , c , d = 1, 2, 3, 4 do local a, b = setmetatable({ }, { __close = function(self) return print("closed") end }) local _close_0 = a local _close_1 = b local c , d = 123, 'abc' close(a, b) const(c, d) end do local a = f() local b, c, d local _obj_0, _obj_1 = f1() b, c = _obj_0[1], _obj_0[2] d = _obj_1[1] end do local a, b, c, d local _obj_0, _obj_1, _obj_2 = f() a = _obj_0 b, c = _obj_1[1], _obj_1[2] d = _obj_2[1] end do local a, b local _obj_0 = { 2, 3 } a, b = _obj_0[1], _obj_0[2] end do local v = (function() if flag then return func() else return setmetatable({ }, { __close = function(self) end }) end end)() local f = (function() local _with_0 = io.open("file.txt") _with_0:write("Hello") return _with_0 end)() end do local a = (function() if true then return 1 end end)() local b = (function() if not false then if x then return 1 end end end)() local c = (function() if true then local _exp_0 = x if "abc" == _exp_0 then return 998 end end end)() local d = (function() if (function() if a ~= nil then return a else return b end end)() then return { value = value } end end)() end do local _ = (function() local _with_0 = io.open("file.txt") _with_0:write("Hello") return _with_0 end)() local _ = setmetatable({ }, { __close = function() return print("second") end }) local _ = setmetatable({ }, { __close = function() return print("first") end }) print("third") end local _defers = setmetatable({ }, { __close = function(self) self[#self]() self[#self] = nil end }) local def def = function(item) _defers[#_defers + 1] = item return _defers end do local _ = def(function() return print(3) end) local _ = def(function() return print(2) end) local _ = def(function() return print(1) end) end