Those Who Remain

return(function(i,a,a)local k=string.char;local e=string.sub;local l=table.concat;local m=math.ldexp;local o=getfenv or function()return _ENV end;local n=select;local f=unpack or table.unpack;local j=tonumber;local function p(h)local b,c,f="","",{}local g=256;local d={}for a=0,g-1 do d[a]=k(a)end;local a=1;local function i()local b=j(e(h,a,a),36)a=a+1;local c=j(e(h,a,a+b-1),36)a=a+b;return c end;b=k(i())f[1]=b;while a<#h do local a=i()if d[a]then c=d[a]else c=b..e(b,1,1)end;d[g]=b..e(c,1,1)f[#f+1],b,g=c,c,g+1 end;return table.concat(f)end;local j=p('2171E2751D1A2751E22X23322R22Z1D1927922M22Q23323122Z21Z22Y1C27522M21723V22Y26W2271D1427922Q22P23322Y23H23E23G22V22O22X27F27921Y23E23E23I22122Z23E1D22327922U28D23I23H21G1X1X23G23323D1W22X22V23E22U23F23023F23H22Z23G23122P22O23E22Z2991W29722R1X22123D22O22L29A22W23322O22P29G29I29K22Z29M29O1X22R2332871X22323323H23B21V22P22Y22Z27P1E23Y22Y23U27U2272A923225Q26Z1N26E2AF27524U24P25E24H26G2AM1E24U21Q21G1K2AL28J28L28N28P28R28T28V28X28Z29129329529729929B23E29D22P29F29H29J29L29N29P2BJ29S29U29P29X29Z21Y23323G22Y2A52A72A927223Z27T27V2A924U25Z2AD2C427526M26L25F2AR2AT1E23X23B21A24Z27W21X2B128E2B328S28U28W28Y29029229429629829A29C29E29Q2BK29T2BM2D22BP2D52BS22O1X22I22U22P29422H2DD22K22Z2D92A91E24Z22Y1325B27W2222CN28O28Q2CQ2B62CT2B92CW2BC2CZ2BF2D12BO2BL29V2E52D429V2D91X22723G29422O23322Q1D1627921Z22O28429N27L1D1D27922O22Z23D1D1U27922428722Y23323022Q22Z22023F22O23123E22V2982EJ27921T22O2EM23C22P22T27E27Y27528G23E22L29523C22V2EQ2FN1E29K2BV29A23G22123F22V28A2752FR23E22522P23G27E2EY2G629B22Y21S22P2FB22W2FU2332FB2FD1B27922I28Y2F52EX2792GH21A22127C22Z21A22228H22Z2FA22Z22Y2772GQ22Z23A28I21327922222P21A23B22P23F21A23D29N23E21A23E2HG2BA2HP22U2H022L23128623I2HO2CU21A29N23B2HM23B21D2FE27522223F28T2GN22O2DL2791Q2262G51E22423F28D29821R2ER27922F22Z23H2IJ2IL2IN22O21O1D2DL2GH2I81E2252EH22Q23027K22T2422791S112791F27921A2IF1E27P214212279131E2JG2ES1A1J2JO2JQ1E2JD2792782751S2152JW2JG27521A2752JG2JG2GP1S2761E182792JZ2JW2KG2JW2K02KJ2792JJ2K41E2KL1E2452JW2JY2K82JH2JJ2JL1M2JC2JW27G2JT2L12JG2L42751L2KU2JE2752KL2K22KP2K62KW2KA2JX2KD2KF2KJ2782K52KG2L62KM2KG2KO2K92KQ2KG2KT2JG2KV2KI1E2JI2KJ2KZ2JH2JW2EK2L72M12KK2JU2752HD2LY2LB2LV2K12K32LU2LG2KP2KB2LK2KM2LN2KM2LQ2LR2752LT2KK2LW2LA2JF2KX2M31E2JM27921K2JW172KQ2MB1E2N42ME2KH2MH2LF2M92ML2LJ1E2ES2LL2KG2MP2KJ2MR2MS2MU2NO2KS2MX2KW2K62KY2N12L027521H2JW27Y2M82O02L62N82DS2NB2LC2JC2MI2M02K72NG2KC2NI1E152MO2M02MY2KR2KM2NQ2MG2752LX2JX2MF2LO2M22LS2N12JN27522N2JW122N72792P02O82OP2LE2MJ2NF2LU2MM2OG2OI2LM2OK2KW2OM2N02NN2MV2792OR2LZ2OU2NW2N22752282JW2JP2M82PT2P62LD2OB2OU2LH1E2PC2ES2PE2NL2PG2PL2NP2MQ2Q92NS2P62PP2N02PR1E22T2JW102P32752QJ2PY2OA2NE2OD2PB2NH2Q52OJ2LO2OL2MS2MT2QB2NR2PN2OT2MZ2OW2142NY1E23I2JW2JE2M82RA2O527923B2NT2P72Q02M52OE2KD2GD2Q72QX2PH2QZ2JK2R12OP2QD2OS2MY2NV2QG2R82342JW1V2QM1E2S22RF27523T2RI2PZ2QR2Q22Q42NH2RP2QB2PI2OW2PK2R22JW1C2RQ2K12182JW1T2RL2LU1Q2NH27P1R2QB27P27P2GD2JG1O2L12RT2Q12RT27P1P2NH2782R82KN2LV27P2OD2T11E1N2JX2L31E1K2KG1G2Q32792KF21Q2752GP2L91I1E2TV2TS2JU2TR2U12GP1H2M92U51E21B1E2SR2U92191E2161E2GD2GP2742QX27P2GP2K52EK2NU2M02UQ2NI2ES2752IS2IU2FW2802822842862882H827527B27D2IJ28C28E2FP1D21Y2DT2CP2B52CS2B82CV2BB2CY2BE2BG2BI29R2E62BN2VQ2E92BR29Y2DA22J22O22T29O29I2GY2V82J122P1D2GP27523I2V328I2ST27521T2HZ2FC22O21A2FR2F52H522Y21G21A2GH2OF2NX2792ES2LU2M82WU2S52P22NB2JG2DL2LE27P2UV2NF2TJ2782OF2782W82KG2UO2ON2TS2PK2R02MY2WV2KG2S42JG2QH2XL2KE2S52XO2JY2JG27G2K127G27P2UT1E27Y2X12KI2UT2SP2JW');local a=(bit or bit32);local d=a and a.bxor or function(a,c)local b,d,e=1,0,10 while a>0 and c>0 do local f,e=a%2,c%2 if f~=e then d=d+b end a,c,b=(a-f)/2,(c-e)/2,b*2 end if a<c then a=c end while a>0 do local c=a%2 if c>0 then d=d+b end a,b=(a-c)/2,b*2 end return d end local function c(b,a,c)if c then local a=(b/2^(a-1))%2^((c-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(b%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local c,b,f,e=i(j,a,a+3);c=d(c,14)b=d(b,14)f=d(f,14)e=d(e,14)a=a+4;return(e*16777216)+(f*65536)+(b*256)+c;end;local function h()local b=d(i(j,a,a),14);a=a+1;return b;end;local function g()local b,c=i(j,a,a+2);b=d(b,14)c=d(c,14)a=a+2;return(c*256)+b;end;local function p()local d=b();local a=b();local e=1;local d=(c(a,1,20)*(2^32))+d;local b=c(a,21,31);local a=((-1)^c(a,32));if(b==0)then if(d==0)then return a*0;else b=1;e=0;end;elseif(b==2047)then return(d==0)and(a*(1/0))or(a*(0/0));end;return m(a,b-1023)*(e+(d/(2^52)));end;local m=b;local function q(b)local c;if(not b)then b=m();if(b==0)then return'';end;end;c=e(j,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=k(d(i(e(c,a,a)),14))end return l(b);end;local a=b;local function m(...)return{...},n('#',...)end local function i()local k={};local j={};local a={};local l={[#{"1 + 1 = 111";"1 + 1 = 111";}]=j,[#{{526;306;676;596};"1 + 1 = 111";"1 + 1 = 111";}]=nil,[#{"1 + 1 = 111";{11;244;248;508};"1 + 1 = 111";{676;720;383;459};}]=a,[#{{597;696;944;763};}]=k,};local a=b()local d={}for c=1,a do local b=h();local a;if(b==1)then a=(h()~=0);elseif(b==2)then a=p();elseif(b==3)then a=q();end;d[c]=a;end;for i=1,b()do local a=h();if(c(a,1,1)==0)then local e=c(a,2,3);local f=c(a,4,6);local a={g(),g(),nil,nil};if(e==0)then a[3]=g();a[4]=g();elseif(e==1)then a[3]=b();elseif(e==2)then a[3]=b()-(2^16)elseif(e==3)then a[3]=b()-(2^16)a[4]=g();end;if(c(f,1,1)==1)then a[2]=d[a[2]]end if(c(f,2,2)==1)then a[3]=d[a[3]]end if(c(f,3,3)==1)then a[4]=d[a[4]]end k[i]=a;end end;for a=1,b()do j[a-1]=i();end;l[3]=h();return l;end;local function l(a,b,h)a=(a==true and i())or a;return(function(...)local e=a[1];local d=a[3];local i=a[2];local k=m local c=1;local g=-1;local o={};local m={...};local j=n('#',...)-1;local a={};local b={};for a=0,j do if(a>=d)then o[a-d]=m[a+1];else b[a]=m[a+#{"1 + 1 = 111";}];end;end;local a=j-d+1 local a;local d;while true do a=e[c];d=a[1];if d<=20 then if d<=9 then if d<=4 then if d<=1 then if d>0 then b[a[2]]=l(i[a[3]],nil,h);else local a=a[2]b[a]=b[a](b[a+1])end;elseif d<=2 then b[a[2]]=b[a[3]][a[4]];elseif d==3 then b[a[2]]={};else b[a[2]][a[3]]=a[4];end;elseif d<=6 then if d>5 then b[a[2]]();else local a=a[2]b[a]=b[a](b[a+1])end;elseif d<=7 then b[a[2]]=a[3];elseif d==8 then do return end;else b[a[2]]=a[3];end;elseif d<=14 then if d<=11 then if d>10 then local c=a[2]b[c]=b[c](f(b,c+1,a[3]))else local a=a[2]b[a](b[a+1])end;elseif d<=12 then local c=a[2]b[c]=b[c](f(b,c+1,a[3]))elseif d>13 then local c=a[2]b[c](f(b,c+1,a[3]))else local a=a[2]b[a]=b[a](f(b,a+1,g))end;elseif d<=17 then if d<=15 then b[a[2]]=h[a[3]];elseif d==16 then b[a[2]][a[3]]=a[4];else b[a[2]]();end;elseif d<=18 then b[a[2]]=l(i[a[3]],nil,h);elseif d>19 then b[a[2]]=(a[3]~=0);else b[a[2]][a[3]]=b[a[4]];end;elseif d<=31 then if d<=25 then if d<=22 then if d>21 then local a=a[2]b[a]=b[a](f(b,a+1,g))else if(b[a[2]]~=a[4])then c=c+1;else c=a[3];end;end;elseif d<=23 then local c=a[2]local d,a=k(b[c](f(b,c+1,a[3])))g=a+c-1 local a=0;for c=c,g do a=a+1;b[c]=d[a];end;elseif d>24 then b[a[2]]={};else if(b[a[2]]~=a[4])then c=c+1;else c=a[3];end;end;elseif d<=28 then if d<=26 then b[a[2]]=(a[3]~=0);elseif d==27 then local c=a[2];local d=b[a[3]];b[c+1]=d;b[c]=d[a[4]];else do return end;end;elseif d<=29 then c=a[3];elseif d==30 then local d;b[a[2]]={};c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]][a[3]]=b[a[4]];c=c+1;a=e[c];d=a[2]b[d](f(b,d+1,a[3]))else local a=a[2]b[a](b[a+1])end;elseif d<=36 then if d<=33 then if d==32 then local c=a[2]b[c](f(b,c+1,a[3]))else local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];end;elseif d<=34 then local g;local d;b[a[2]]=h[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];d=a[2]b[d]=b[d](b[d+1])c=c+1;a=e[c];b[a[2]][a[3]]=b[a[4]];c=c+1;a=e[c];b[a[2]]=h[a[3]];c=c+1;a=e[c];d=a[2];g=b[a[3]];b[d+1]=g;b[d]=g[a[4]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];d=a[2]b[d]=b[d](f(b,d+1,a[3]))c=c+1;a=e[c];d=a[2];g=b[a[3]];b[d+1]=g;b[d]=g[a[4]];elseif d>35 then if(b[a[2]]==a[4])then c=c+1;else c=a[3];end;else local c=a[2]local d,a=k(b[c](f(b,c+1,a[3])))g=a+c-1 local a=0;for c=c,g do a=a+1;b[c]=d[a];end;end;elseif d<=39 then if d<=37 then b[a[2]]=b[a[3]][a[4]];elseif d==38 then b[a[2]][a[3]]=b[a[4]];else local i;local m,l;local j;local d;b[a[2]]=h[a[3]];c=c+1;a=e[c];d=a[2];j=b[a[3]];b[d+1]=j;b[d]=j[a[4]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];b[a[2]]=(a[3]~=0);c=c+1;a=e[c];d=a[2]m,l=k(b[d](f(b,d+1,a[3])))g=l+d-1 i=0;for a=d,g do i=i+1;b[a]=m[i];end;c=c+1;a=e[c];d=a[2]b[d]=b[d](f(b,d+1,g))c=c+1;a=e[c];b[a[2]]();c=c+1;a=e[c];c=a[3];end;elseif d<=40 then if(b[a[2]]==a[4])then c=c+1;else c=a[3];end;elseif d==41 then c=a[3];else b[a[2]]=h[a[3]];end;c=c+1;end;end);end;return l(true,{},o())();end)(string.byte,table.insert,setmetatable);