local join join = function(...) f_with((function() local _with_0 = a _with_0:func() return _with_0 end)()) f_with((function(...) local _with_0 = a _with_0:func(...) return _with_0 end)(...)) f_listcomp((function() local _accum_0 = { } local _len_0 = 1 for i = 1, 10 do _accum_0[_len_0] = items[i] _len_0 = _len_0 + 1 end return _accum_0 end)()) f_listcomp((function(...) local _accum_0 = { } local _len_0 = 1 for i = 1, 10 do _accum_0[_len_0] = items[i](...) _len_0 = _len_0 + 1 end return _accum_0 end)(...)) f_listcomp((function() local _accum_0 = { } local _len_0 = 1 local _list_0 = items for _index_0 = 1, #_list_0 do local item = _list_0[_index_0] _accum_0[_len_0] = item _len_0 = _len_0 + 1 end return _accum_0 end)()) f_listcomp((function(...) local _accum_0 = { } local _len_0 = 1 local _list_0 = items for _index_0 = 1, #_list_0 do local item = _list_0[_index_0] _accum_0[_len_0] = item(...) _len_0 = _len_0 + 1 end return _accum_0 end)(...)) f_class((function() local A do local _class_0 local _base_0 = { } if _base_0.__index == nil then _base_0.__index = _base_0 end _class_0 = setmetatable({ __init = function() end, __base = _base_0, __name = "A" }, { __index = _base_0, __call = function(cls, ...) local _self_0 = setmetatable({ }, _base_0) cls.__init(_self_0, ...) return _self_0 end }) _base_0.__class = _class_0 local self = _class_0; func() A = _class_0 return _class_0 end end)()) f_class((function(...) local A do local _class_0 local _base_0 = { } if _base_0.__index == nil then _base_0.__index = _base_0 end _class_0 = setmetatable({ __init = function() end, __base = _base_0, __name = "A" }, { __index = _base_0, __call = function(cls, ...) local _self_0 = setmetatable({ }, _base_0) cls.__init(_self_0, ...) return _self_0 end }) _base_0.__class = _class_0 local self = _class_0; func(...) A = _class_0 return _class_0 end end)(...)) f_tblcomp((function() local _tbl_0 = { } for k, v in pairs(tb) do _tbl_0[k] = v end return _tbl_0 end)()) f_tblcomp((function(...) local _tbl_0 = { } for k, v in pairs(tb) do _tbl_0[k] = v(...) end return _tbl_0 end)(...)) f_tblcomp((function() local _tbl_0 = { } local _list_0 = items for _index_0 = 1, #_list_0 do local item = _list_0[_index_0] _tbl_0[item] = true end return _tbl_0 end)()) f_tblcomp((function(...) local _tbl_0 = { } local _list_0 = items for _index_0 = 1, #_list_0 do local item = _list_0[_index_0] _tbl_0[item(...)] = true end return _tbl_0 end)(...)) f_do((function() return func() end)()) f_do((function(...) return func(...) end)(...)) f_while((function() local _accum_0 = { } local _len_0 = 1 while false do _accum_0[_len_0] = func() _len_0 = _len_0 + 1 end return _accum_0 end)()) f_while((function(...) local _accum_0 = { } local _len_0 = 1 while false do _accum_0[_len_0] = func(...) _len_0 = _len_0 + 1 end return _accum_0 end)(...)) f_if((function() if false then return func() end end)()) f_if((function(...) if false then return func(...) end end)(...)) f_unless((function() if not true then return func() end end)()) f_unless((function(...) if not true then return func(...) end end)(...)) f_switch((function() local _exp_0 = x if "abc" == _exp_0 then return func() end end)()) f_switch((function(...) local _exp_0 = x if "abc" == _exp_0 then return func(...) end end)(...)) f_eop((function() local _obj_0 = func if _obj_0 ~= nil then return _obj_0() end return nil end)()) f_eop((function(...) local _obj_0 = func if _obj_0 ~= nil then return _obj_0(...) end return nil end)(...)) f_colon((function() local _base_0 = f() local _fn_0 = _base_0.func return _fn_0 and function(...) return _fn_0(_base_0, ...) end end)()) f_colon((function(...) local _base_0 = f(...) local _fn_0 = _base_0.func return _fn_0 and function(...) return _fn_0(_base_0, ...) end end)(...)) return nil end