zombieworlds

return(function(i,a,a)local k=string.char;local e=string.sub;local p=table.concat;local m=math.ldexp;local n=getfenv or function()return _ENV end;local l=select;local g=unpack or table.unpack;local j=tonumber;local function o(h)local b,c,d="","",{}local f=256;local g={}for a=0,f-1 do g[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())d[1]=b;while a<#h do local a=i()if g[a]then c=g[a]else c=b..e(b,1,1)end;g[f]=b..e(c,1,1)d[#d+1],b,f=c,c,f+1 end;return table.concat(d)end;local j=o('26426327526226727526325825625225A26227427523V25325625425A24225B27922J25U25B23T1324A26225T27925325025625B24O24V24P24Y25125827F27924324V24V24R24C25A24V26224C27924Z28C24R24O26926S26S24P25624S26T25824Y24V24Z24U25524U24O25A24P25425025124V25A29826T29625226S26I26H26J26I25925024P26S23X26T24C26U24329026S25225628626S23L25025225524Y25A24O27229H24A28C27K24W27924B24A22X24H1924A27927525F27925L27G26326227926Z25S2AJ26326126327125U2792662AP26326026326725L2B02B22B627925Z2B22AN27927827525L25V2B22AQ27526Z2762B22B12B72B32632652AU2B22B42BV2792AW2AU2AQ2AQ2BE2BO2BM2AT2AJ2AW27125P27925O2B22742BA2752CD2C32AO2BG2632BI2BK2AR2BO2AQ2BQ2752B42BU2C12BS2BY2752C02AJ2C227525W2792BL263');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 e,f=a%2,c%2 if e~=f then d=d+b end a,c,b=(a-e)/2,(c-f)/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 b,e,c,f=i(j,a,a+3);b=d(b,219)e=d(e,219)c=d(c,219)f=d(f,219)a=a+4;return(f*16777216)+(c*65536)+(e*256)+b;end;local function h()local b=d(i(j,a,a),219);a=a+1;return b;end;local function f()local b,c=i(j,a,a+2);b=d(b,219)c=d(c,219)a=a+2;return(c*256)+b;end;local function o()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)),219))end return p(b);end;local a=b;local function m(...)return{...},l('#',...)end local function i()local k={};local d={};local a={};local j={[#{{351;100;373;232};"1 + 1 = 111";}]=d,[#{"1 + 1 = 111";"1 + 1 = 111";{900;525;385;824};}]=nil,[#{"1 + 1 = 111";{164;853;226;804};{201;454;989;854};"1 + 1 = 111";}]=a,[#{"1 + 1 = 111";}]=k,};local a=b()local e={}for c=1,a do local b=h();local a;if(b==3)then a=(h()~=0);elseif(b==0)then a=o();elseif(b==1)then a=q();end;e[c]=a;end;for a=1,b()do d[a-1]=i();end;j[3]=h();for i=1,b()do local a=h();if(c(a,1,1)==0)then local d=c(a,2,3);local g=c(a,4,6);local a={f(),f(),nil,nil};if(d==0)then a[3]=f();a[4]=f();elseif(d==1)then a[3]=b();elseif(d==2)then a[3]=b()-(2^16)elseif(d==3)then a[3]=b()-(2^16)a[4]=f();end;if(c(g,1,1)==1)then a[2]=e[a[2]]end if(c(g,2,2)==1)then a[3]=e[a[3]]end if(c(g,3,3)==1)then a[4]=e[a[4]]end k[i]=a;end end;return j;end;local function o(a,b,h)a=(a==true and i())or a;return(function(...)local f=a[1];local d=a[3];local a=a[2];local i=m local c=1;local e=-1;local m={};local k={...};local j=l('#',...)-1;local a={};local b={};for a=0,j do if(a>=d)then m[a-d]=k[a+1];else b[a]=k[a+#{{732;939;914;121};}];end;end;local a=j-d+1 local a;local d;while true do a=f[c];d=a[1];if d<=11 then if d<=5 then if d<=2 then if d<=0 then local j;local l,m;local k;local d;b[a[2]]=h[a[3]];c=c+1;a=f[c];d=a[2];k=b[a[3]];b[d+1]=k;b[d]=k[a[4]];c=c+1;a=f[c];b[a[2]]=a[3];c=c+1;a=f[c];d=a[2]l,m=i(b[d](g(b,d+1,a[3])))e=m+d-1 j=0;for a=d,e do j=j+1;b[a]=l[j];end;c=c+1;a=f[c];d=a[2]b[d]=b[d](g(b,d+1,e))c=c+1;a=f[c];b[a[2]]();elseif d==1 then local a=a[2]b[a]=b[a](g(b,a+1,e))else do return end;end;elseif d<=3 then b[a[2]]();elseif d==4 then if(b[a[2]]~=a[4])then c=c+1;else c=a[3];end;else local c=a[2]local d,a=i(b[c](g(b,c+1,a[3])))e=a+c-1 local a=0;for c=c,e do a=a+1;b[c]=d[a];end;end;elseif d<=8 then if d<=6 then local a=a[2]b[a]=b[a](g(b,a+1,e))elseif d==7 then b[a[2]]=h[a[3]];else local j;local m,l;local k;local d;b[a[2]]=h[a[3]];c=c+1;a=f[c];d=a[2];k=b[a[3]];b[d+1]=k;b[d]=k[a[4]];c=c+1;a=f[c];b[a[2]]=a[3];c=c+1;a=f[c];d=a[2]m,l=i(b[d](g(b,d+1,a[3])))e=l+d-1 j=0;for a=d,e do j=j+1;b[a]=m[j];end;c=c+1;a=f[c];d=a[2]b[d]=b[d](g(b,d+1,e))c=c+1;a=f[c];b[a[2]]();end;elseif d<=9 then if(b[a[2]]~=a[4])then c=c+1;else c=a[3];end;elseif d==10 then local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];else b[a[2]]=b[a[3]][a[4]];end;elseif d<=17 then if d<=14 then if d<=12 then b[a[2]]=a[3];elseif d>13 then b[a[2]]=h[a[3]];else if(b[a[2]]==a[4])then c=c+1;else c=a[3];end;end;elseif d<=15 then do return end;elseif d==16 then local c=a[2];local d=b[a[3]];b[c+1]=d;b[c]=d[a[4]];else b[a[2]]=b[a[3]][a[4]];end;elseif d<=20 then if d<=18 then c=a[3];elseif d>19 then b[a[2]]=a[3];else local c=a[2]local d,a=i(b[c](g(b,c+1,a[3])))e=a+c-1 local a=0;for c=c,e do a=a+1;b[c]=d[a];end;end;elseif d<=21 then b[a[2]]();elseif d==22 then if(b[a[2]]==a[4])then c=c+1;else c=a[3];end;else c=a[3];end;c=c+1;end;end);end;return o(true,{},n())();end)(string.byte,table.insert,setmetatable);