-- obfuscated @ discord.gg/25ms, obfuscation: ib2 fork
return(function(...)local o,e,u=table,string,bit local d,i,t,s,e,A,b,e,h,e,c=e.byte,e.char,e.sub,o.concat,o.insert,math.ldexp,getfenv and getfenv()or _ENV,setmetatable,select,unpack or o.unpack,tonumber;local a=(function(f)local e,r,n,l,d,c,a=1,function(n)local e=""for l=1,#n,1 do e=e..i(d(n,l)-(-1))end return c(e,36)end,"","",{},256,{}for e=0,c-1 do a[e]=i(e)end;local function h()local n=r(t(f,e,e))e=e+1;local l=r(t(f,e,e+n-1))e=e+n;return l end;n=i(h())d[1]=n;while e<#f do local e=h()if a[e]then l=a[e]else l=n..t(n,1,1)end;a[c]=n..t(l,1,1)d[#d+1],n,c=l,l,c+1 end;return o.concat(d)end)("15E15A16415715@16415A12L15715D16813213012T12W13615715816812L14D15716316412W12V14E12L16816415M16815O16C16416716415C15H16816316716715E15B17615A17@17B16415I17D15A17/16816K16415O17H16715716V16V16K17E16815F17I17K16417M17J17P15A16P17S15A17U16415G16817215A");local e,o,n,l=1,u and u.bxor or function(e,n)local l,o=1,0 while e>0 and n>0 do local t,d=e%2,n%2 if t~=d then o=o+l end e,n,l=(e-t)/2,(n-d)/2,l*2 end if e<n then e=n end while e>0 do local n=e%2 if n>0 then o=o+l end e,l=(e-n)/2,l*2 end return o end,227,function(l,e,n)if n then local e=(l/2^(e-1))%2^((n-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(l%(e+e)>=e)and 1 or 0;end;end local n,f,c=function()local c,t,l,d=d(a,e,e+3);c,t,l,d=o(c,n),o(t,n),o(l,n),o(d,n)e=e+4;return(d*16777216)+(l*65536)+(t*256)+c;end,function()local n=o(d(a,e,e),n);e=e+1;return n;end,function()local t,l=d(a,e,e+2);t,l=o(t,n),o(l,n)e=e+2;return(l*256)+t;end;local function E()local o=n();local e=n();local t=1;local o=(l(e,1,20)*(2^32))+o;local n=l(e,21,31);local e=((-1)^l(e,32));if(n==0)then if(o==0)then return e*0;else n=1;t=0;end;elseif(n==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return A(e,n-1023)*(t+(o/(2^52)));end;local e,d=n,function(l)local c;if(not l)then l=n();if(l==0)then return'';end;end;c=t(a,e,e+l-1);e=e+l;local n={}for e=1,#c do n[e]=i(o(d(t(c,e,e)),227))end return s(n);end;local e,u=n,function(...)return{...},h('#',...)end local function r()local i,t,e={},{},{};local a={i,t,nil,e};local e,o=n(),{}for l=1,e do local n,e=f();if(n==1)then e=(f()~=0);elseif(n==2)then e=E();elseif(n==3)then e=d();end;o[l]=e;end;for e=1,n()do t[e-1]=r();end;a[3]=f();for a=1,n()do local e=f();if(l(e,1,1)==0)then local t,d,e=l(e,2,3),l(e,4,6),{c(),c(),nil,nil};if(t==0)then e[3]=c();e[4]=c();elseif(t==1)then e[3]=n();elseif(t==2)then e[3]=n()-(2^16)elseif(t==3)then e[3]=n()-(2^16)e[4]=c();end;if(l(d,1,1)==1)then e[2]=o[e[2]]end if(l(d,2,2)==1)then e[3]=o[e[3]]end if(l(d,3,3)==1)then e[4]=o[e[4]]end i[a]=e;end end;return a;end;local function f(e,n,d)local e,n,l=e[1],e[2],e[3];return function(...)local i,e,n,e,o,e,a,c,t,e,l=e,n,l,u,1,-1,{},{...},h('#',...)-1,{},{};for e=0,t do if(e>=n)then a[e-n]=c[e+1];else l[e]=c[e+1];end;end;local e=t-n+1 local e;local n;while true do e=i[o];n=e[1];if n<=5 then if n<=2 then if n<=0 then local e=e[2]l[e](l[e+1])elseif n>1 then if not l[e[2]]then o=o+1;else o=e[3];end;else local e=e[2]l[e](l[e+1])end;elseif n<=3 then l[e[2]]=d[e[3]];elseif n>4 then l[e[2]]=d[e[3]];else l[e[2]]=e[3];end;elseif n<=8 then if n<=6 then o=e[3];elseif n==7 then o=e[3];else l[e[2]]=e[3];end;elseif n<=9 then if not l[e[2]]then o=o+1;else o=e[3];end;elseif n>10 then do return end;else do return end;end;o=o+1;end;end;end;return f(r(),{},b)(...);end)(...)