scripwithwhitelist

([[This file was protected with MoonSec V3 by Federal#9999]]):gsub('.+', (function(a) _aHgtnwVd_JGt = a; end)); return(function(o,...)local f;local h;local d;local t;local s;local a;local e=24915;local n=0;local l={};while n<874 do n=n+1;while n<0x172 and e%0x37ce<0x1be7 do n=n+1 e=(e+965)%30668 local r=n+e if(e%0x8b2)>=0x459 then e=(e-0x392)%0x2351 while n<0x396 and e%0xb36<0x59b do n=n+1 e=(e+446)%38300 local d=n+e if(e%0x2170)>=0x10b8 then e=(e*0x1de)%0x1e79 local e=61884 if not l[e]then l[e]=0x1 end elseif e%2~=0 then e=(e*0x3cd)%0x9483 local e=97309 if not l[e]then l[e]=0x1 s=tonumber;end else e=(e+0x291)%0x2a86 n=n+1 local e=96434 if not l[e]then l[e]=0x1 t=(not t)and _ENV or t;end end end elseif e%2~=0 then e=(e*0x152)%0x77ef while n<0xf5 and e%0x419c<0x20ce do n=n+1 e=(e*643)%14033 local r=n+e if(e%0x25b6)<=0x12db then e=(e*0x2df)%0x60b8 local e=79671 if not l[e]then l[e]=0x1 f="\4\8\116\111\110\117\109\98\101\114\120\107\122\85\104\100\75\81\0\6\115\116\114\105\110\103\4\99\104\97\114\71\88\97\76\98\107\114\98\0\6\115\116\114\105\110\103\3\115\117\98\95\67\114\102\103\104\114\77\0\6\115\116\114\105\110\103\4\98\121\116\101\118\67\99\108\88\86\76\112\0\5\116\97\98\108\101\6\99\111\110\99\97\116\109\88\111\118\102\74\81\87\0\5\116\97\98\108\101\6\105\110\115\101\114\116\116\97\115\120\104\74\84\97\5";end elseif e%2~=0 then e=(e-0x249)%0xa22e local e=44270 if not l[e]then l[e]=0x1 end else e=(e+0x34b)%0x6b14 n=n+1 local e=93070 if not l[e]then l[e]=0x1 d=function(d)local e=0x01 local function l(n)e=e+n return d:sub(e-n,e-0x01)end while true do local n=l(0x01)if(n=="\5")then break end local e=h.byte(l(0x01))local e=l(e)if n=="\2"then e=a.xkzUhdKQ(e)elseif n=="\3"then e=e~="\0"elseif n=="\6"then t[e]=function(n,e)return o(8,nil,o,e,n)end elseif n=="\4"then e=t[e]elseif n=="\0"then e=t[e][l(h.byte(l(0x01)))];end local n=l(0x08)a[n]=e end end end end end else e=(e+0x2f8)%0xb3d7 n=n+1 while n<0x1ba and e%0x4386<0x21c3 do n=n+1 e=(e*515)%33837 local d=n+e if(e%0x1484)>0xa42 then e=(e*0x10a)%0xb889 local e=94222 if not l[e]then l[e]=0x1 a={};end elseif e%2~=0 then e=(e*0x2ea)%0xac85 local e=31526 if not l[e]then l[e]=0x1 h=string;end else e=(e+0x199)%0xe14 n=n+1 local e=36529 if not l[e]then l[e]=0x1 t=getfenv and getfenv();end end end end end e=(e*908)%26955 end d(f);local n={};for e=0x0,0xff do local l=a.GXaLbkrb(e);n[e]=l;n[l]=e;end local function r(e)return n[e];end local h=(function(h,d)local f,l=0x01,0x10 local n={{},{},{}}local t=-0x01 local e=0x01 local o=h while true do n[0x03][a._CrfghrM(d,e,(function()e=f+e return e-0x01 end)())]=(function()t=t+0x01 return t end)()if t==(0x0f)then t=""l=0x000 break end end local t=#d while e<t+0x01 do n[0x02][l]=a._CrfghrM(d,e,(function()e=f+e return e-0x01 end)())l=l+0x01 if l%0x02==0x00 then l=0x00 a.tasxhJTa(n[0x01],(r((((n[0x03][n[0x02][0x00]]or 0x00)*0x10)+(n[0x03][n[0x02][0x01]]or 0x00)+o)%0x100)));o=h+o;end end return a.mXovfJQW(n[0x01])end);d(h(5,"W<(aZGY0Bw7cbJ>)z&"));d(h(93,"&Yy:;a,nmt3I^zKQ3:;^a^#U3Y:IK:nQIQ^yn,YYInaQzKmyYmzIm:r;^nT,33Im;KKQtz;vzKtSy333amKt^Y:mtf:n;aK3m;y^zantY^ItayQK3::3zyY^^azantY3I;a^Qm:t;;zItYy:^I;IQYII,nztmbY^^nYK^azY,mYKIaQaQQt3:KQ;mQgKzz,IKz^:;:z^3;zKmtt:ymz3n,YY^:a:kttt:zK3m,::Ig,YYytz,mzImaK m,nmy3^InQYz^:ynzm33;mK3mmYQIzaYI:a,,^Qt3;ayQnn?:aIYaQY:Im;QtI:zYmKKnK::Izn,Y^^;,ntK;aa;Qytt:zzKnmyGI^aY?zI;ynQztQ:^IaYTIm^3a3QK3I;nmItz:tzKnyYn^yn;KY3a: z3tYYnIaY,II^z,txK3y;nQynzY^zIm,:63z,3Zy;,K3Qmtz:nzQmmYK^y;nYa3KyzKHt;z:nmmmYz^n,:?;Imayz^3Y:II;nmY3z:QQ3,Iy;tQQt,z,z3m:yt^^nyYaIKaILammy,^n,z^l"));local e=(-27+(function()local l,n=0,1;(function(n,e)n(e(n,e),n(e,e and e))end)(function(e,t)if l>203 then return e end l=l+1 n=(n+992)%28680 if(n%368)>=184 then n=(n-492)%40464 return e else return e(t(t,t and e),t(e,e))end return t(e(t,e),e(e,e))end,function(e,t)if l>484 then return e end l=l+1 n=(n-235)%19458 if(n%250)<=125 then n=(n+35)%18895 return e(t(t,t),t(e,e)and e(e,t))else return e end return t end)return n;end)())local c=a.SOkszTnc or a.zDeMThKF;local ee=(getfenv)or(function()return _ENV end);local f=4;local ne=1;local t=2;local d=3;local function p(g,...)local u=h(e,"E 6l9Z%Y^XskehgVkhZgBhke%hlkeXY^6YlgVXs^Zl:ZYk VegkgZg VeV%V kh ^ZV9h^Xl9Tk sl9 j%%hZ6_lXklnVPs^Z gh%Y9%elY66  ^gtsc9 ,lXeZeVg%^9bgsYZZ9 9hZ^96Zhl9sghVZXs9VsXXk9^p9%Z%z 6kl%ZhWhlY%66^e^g6hgkX 9YVsZZZ6T6kX VegYh>#kYZeQkksk<YhlkeX^s9%VXXk99VZ9 V^Xh9eVk %e^%X khX^Xl%heXtl^^696hg^hlelhVee lX ZkYY 6hhYYk69glY6llgVs699ghXggseg9%VZs9sY%s shl6V69h%^^lPXss_lXVsZ%ZZC%k6%%K%klYl le 6el6hl^hlWXYYl99Vls lZV%sl!VV9^2 e1hhl6XVgeeYs6sg%^9lgs9%X ^eYY%ggke9sVXs^kVYs6Xh9^%Ves59VlVhVsCZDV2XeZ6<%YZZX 9e l669e6^Ygghm%90hVZ% 6lhXXXg^sg99Vls6Xg%V gee%)6 egYX egeXXlVVlXkZ%hsssZ9Clkl%kgheVYg6k%s69e%YZ69l6glYX9Y0lse%9V6sVZXVlXVYkk^%s 9elY6X 96g^XeZ ^g9ugsXX9^%YJYkgY%6%%9 ^e-%V g ZVUXV9shSXhZkX^Z?V9slZ69^ ZhlZ 6XhZ^zl^ghY lk^^lXg9Xl96Z^2 ke%lhZZe!kks%Xl9eYY%6ZhZ^ll6g s6ZsggXh9eClssZXv^eXYg Ze9Yl6kh ^C6V_9XXlegkXs9VV^s^Z%fkk9%Y6ke Y{ Vh9Yh6hhk^gZ6g^XY9%Ves9Z946k Y )Vkg%h hekYs6Xgss%l%gZX99YV6s Z,  hxZh>hkkY^ Xe^YY9%hg^9l9g6X69_VkXgZV 7skZhcXkV%Y %eZY9lkh6^6lOg6^glhgeXkZ9VXs^ZY7%kZ%% le6Ys6NeVYg6ghe^hlsVksv9YVYsZ%6clk6% lzel%g geeYe6she^^9Xg^XZ9YVlsYZ #WsVZg lke%e seeY^6Xh%sZlgglXl9 V XVZkVhse%ZAsks%^ Xe%YY69gZXXl g6^V9XghXe9kVselZ^fsk%%Z 9elY66 g6YVl#hh^glkggXX9e is%ZZn9h^%6 6exYZlXeh^66kVZ^XlXgYXY9ZV^keZ62 k5Ys>gkg%e VglYX6^hYsklZgZXlZ9 psnZ%VgkYZe0kksYk6eeYYg6Zh%^ll6g Xn9Xggs99eVhssZsB^eXYZ ZekYl6%h ^W6VV=XgleVlXsZYV^sYZ%6Zeh%l se Y^ VhsYhlgVv^s9lg^X^9%VZs9Zl hk %^rVe^%h eekYs9gh^^gl%gZX99ZV6s ZsVVkZZh*hkk%k XegYV6%hY^99kg6X69GV XgZ  ZskZs2XhO%Y YeZY9l9h6^ l!gt^glhgeXk9sVXs^ZY");local n=0;a.gvmJUCxL(function()a.vLnGRceY()n=n+1 end)local function e(l,e)if e then return n end;n=l+n;end local l,n,r=o(0,o,e,u,a.vCclXVLp);local function h()local n,l=a.vCclXVLp(u,e(1,3),e(5,6)+2);e(2);return(l*256)+n;end;local k=true;local k=0 local function b()local e=n();local n=n();local d=1;local t=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local n=((-1)^l(n,32));if(e==0)then if(t==k)then return n*0;else e=1;d=0;end;elseif(e==2047)then return(t==0)and(n*(1/0))or(n*(0/0));end;return a.LxcBuRHm(n,e-1023)*(d+(t/(2^52)));end;local z=n;local function m(n)local l;if(not n)then n=z();if(n==0)then return'';end;end;l=a._CrfghrM(u,e(1,3),e(5,6)+n-1);e(n)local e=""for n=(1+k),#l do e=e..a._CrfghrM(l,n,n)end return e;end;local k=#a.YrvFyxrH(s('\49.\48'))~=1 local e=n;local function j(...)return{...},a.kRtkAbaw('#',...)end local function _()local e={};local u={};local c={};local s={u,c,nil,e};local e=n()local o={}for t=1,e do local l=r();local n;if(l==0)then n=(r()~=#{});elseif(l==1)then local e=b();if k and a.EHoxGKDL(a.YrvFyxrH(e),'.(\48+)$')then e=a.rxryYTRU(e);end n=e;elseif(l==2)then n=m();end;o[t]=n;end;for c=1,n()do local e=r();if(l(e,1,1)==0)then local a=l(e,2,3);local r=l(e,4,6);local e={h(),h(),nil,nil};if(a==0)then e[d]=h();e[f]=h();elseif(a==#{1})then e[d]=n();elseif(a==g[2])then e[d]=n()-(2^16)elseif(a==g[3])then e[d]=n()-(2^16)e[f]=h();end;if(l(r,1,1)==1)then e[t]=o[e[t]]end if(l(r,2,2)==1)then e[d]=o[e[d]]end if(l(r,3,3)==1)then e[f]=o[e[f]]end u[c]=e;end end;for e=1,n()do c[e-(#{1})]=_();end;s[3]=r();return s;end;local function p(l,n,e)local t=n;local t=e;return s(a.EHoxGKDL(a.EHoxGKDL(({a.gvmJUCxL(l)})[2],n),e))end local function le(g,e,s)local function ee(...)local h,_,u,y,k,l,r,z,b,m,p,n;local e=0;while-1<e do if e>2 then if e<5 then if 1~=e then repeat if 4~=e then z={};b={...};break;end;m=a.kRtkAbaw('#',...)-1;p={};until true;else z={};b={...};end else if 5~=e then e=-2;else n=o(7);end end else if 0>=e then h=o(6,37,1,46,g);_=o(6,68,2,56,g);else if-3~=e then for n=12,88 do if e~=1 then l=-41;r=-1;break;end;u=o(6,63,3,29,g);k=j y=0;break;end;else u=o(6,63,3,29,g);k=j y=0;end end end e=e+1;end;for e=0,m do if(e>=u)then z[e-u]=b[e+1];else n[e]=b[e+1];end;end;local e=m-u+1 local e;local o;local function a(...)while true do end end while true do if l<-40 then l=l+42 end e=h[l];o=e[ne];if 20<o then if 31>o then if 25>=o then if 23>o then if o>21 then l=e[d];else n[e[t]]=n[e[d]];end else if o<24 then do return end;else if 20~=o then repeat if 24<o then l=e[d];break;end;local l=e[t]local t,e=k(n[l](c(n,l+1,e[d])))r=e+l-1 local e=0;for l=l,r do e=e+1;n[l]=t[e];end;until true;else l=e[d];end end end else if 28<=o then if 28>=o then for o=0,3 do if 1<o then if o>2 then if(n[e[t]]==e[f])then l=l+1;else l=e[d];end;else n[e[t]]=s[e[d]];l=l+1;e=h[l];end else if-4~=o then repeat if 0~=o then s[e[d]]=n[e[t]];l=l+1;e=h[l];break;end;n[e[t]]=(e[d]~=0);l=l+1;e=h[l];until true;else n[e[t]]=(e[d]~=0);l=l+1;e=h[l];end end end else if o~=29 then local l=e[t];local t=n[e[d]];n[l+1]=t;n[l]=t[e[f]];else local t=e[t]local d={n[t](n[t+1])};local l=0;for e=t,e[f]do l=l+1;n[e]=d[l];end end end else if o>=25 then repeat if 27~=o then n[e[t]]=s[e[d]];break;end;if(n[e[t]]~=n[e[f]])then l=l+1;else l=e[d];end;until true;else if(n[e[t]]~=n[e[f]])then l=l+1;else l=e[d];end;end end end else if o>35 then if 38<o then if 40>o then s[e[d]]=n[e[t]];else if 36<o then repeat if o>40 then n[e[t]]=(e[d]~=0);break;end;n(e[t],e[d]);until true;else n[e[t]]=(e[d]~=0);end end else if o<=36 then local e=e[t]n[e]=n[e]()else if 38==o then n[e[t]]();else local e=e[t]n[e]=n[e](c(n,e+1,r))end end end else if o<33 then if 31<o then if(n[e[t]]==e[f])then l=l+1;else l=e[d];end;else n[e[t]]=s[e[d]];end else if 34<=o then if 31<=o then repeat if o<35 then local o,z,g,b,a;for u=0,6 do if 2>=u then if 0<u then if 1==u then o=e[t];z=n[e[d]];n[o+1]=z;n[o]=z[e[f]];l=l+1;e=h[l];else n(e[t],e[d]);l=l+1;e=h[l];end else n[e[t]]=s[e[d]];l=l+1;e=h[l];end else if 4<u then if u==6 then n[e[t]]=s[e[d]];else o=e[t]n[o]=n[o]()l=l+1;e=h[l];end else if-1<u then repeat if 4>u then o=e[t]g,b=k(n[o](c(n,o+1,e[d])))r=b+o-1 a=0;for e=o,r do a=a+1;n[e]=g[a];end;l=l+1;e=h[l];break;end;o=e[t]n[o]=n[o](c(n,o+1,r))l=l+1;e=h[l];until true;else o=e[t]g,b=k(n[o](c(n,o+1,e[d])))r=b+o-1 a=0;for e=o,r do a=a+1;n[e]=g[a];end;l=l+1;e=h[l];end end end end break;end;local e=e[t]n[e](n[e+1])until true;else local e=e[t]n[e](n[e+1])end else local l=e[t]n[l]=n[l](c(n,l+1,e[d]))end end end end else if 9<o then if o>14 then if 18>o then if o>=16 then if 15<o then repeat if 17~=o then local e=e[t]n[e]=n[e]()break;end;do return end;until true;else local e=e[t]n[e]=n[e]()end else local t=e[t]local d={n[t](n[t+1])};local l=0;for e=t,e[f]do l=l+1;n[e]=d[l];end end else if 18>=o then local e=e[t]n[e]=n[e](n[e+1])else if 19<o then local o,g,b,z,u;for a=0,6 do if 2<a then if 4>=a then if 2~=a then for r=37,68 do if 4>a then n[e[t]]=s[e[d]];l=l+1;e=h[l];break;end;o=e[t];g=n[e[d]];n[o+1]=g;n[o]=g[e[f]];l=l+1;e=h[l];break;end;else o=e[t];g=n[e[d]];n[o+1]=g;n[o]=g[e[f]];l=l+1;e=h[l];end else if a~=2 then for f=27,71 do if a~=5 then o=e[t]b,z=k(n[o](c(n,o+1,e[d])))r=z+o-1 u=0;for e=o,r do u=u+1;n[e]=b[u];end;break;end;n(e[t],e[d]);l=l+1;e=h[l];break;end;else o=e[t]b,z=k(n[o](c(n,o+1,e[d])))r=z+o-1 u=0;for e=o,r do u=u+1;n[e]=b[u];end;end end else if 0>=a then n(e[t],e[d]);l=l+1;e=h[l];else if a<2 then o=e[t]n[o](n[o+1])l=l+1;e=h[l];else n[e[t]]=s[e[d]];l=l+1;e=h[l];end end end end else local e=e[t]n[e]=n[e](c(n,e+1,r))end end end else if 11>=o then if 10==o then n[e[t]]();else if(n[e[t]]==e[f])then l=l+1;else l=e[d];end;end else if 13>o then if(n[e[t]]~=n[e[f]])then l=l+1;else l=e[d];end;else if 10<o then for l=39,96 do if o~=14 then local l=e[t]n[l]=n[l](c(n,l+1,e[d]))break;end;n[e[t]]=(e[d]~=0);break;end;else local l=e[t]n[l]=n[l](c(n,l+1,e[d]))end end end end else if 5>o then if o>1 then if o>=3 then if 0~=o then for l=23,63 do if 3<o then local l=e[t];local t=n[e[d]];n[l+1]=t;n[l]=t[e[f]];break;end;local l=e[t]local t,e=k(n[l](c(n,l+1,e[d])))r=e+l-1 local e=0;for l=l,r do e=e+1;n[l]=t[e];end;break;end;else local l=e[t];local t=n[e[d]];n[l+1]=t;n[l]=t[e[f]];end else local o,r,k,u;for a=0,6 do if a>=3 then if 4<a then if a~=6 then n[e[t]]=n[e[d]];l=l+1;e=h[l];else o=e[t]k={n[o](n[o+1])};u=0;for e=o,e[f]do u=u+1;n[e]=k[u];end end else if a>2 then repeat if a~=3 then n[e[t]]=s[e[d]];l=l+1;e=h[l];break;end;o=e[t]n[o]=n[o](n[o+1])l=l+1;e=h[l];until true;else o=e[t]n[o]=n[o](n[o+1])l=l+1;e=h[l];end end else if 1>a then n(e[t],e[d]);l=l+1;e=h[l];else if-1~=a then for s=25,65 do if a~=2 then o=e[t]n[o]=n[o](c(n,o+1,e[d]))l=l+1;e=h[l];break;end;o=e[t];r=n[e[d]];n[o+1]=r;n[o]=r[e[f]];l=l+1;e=h[l];break;end;else o=e[t];r=n[e[d]];n[o+1]=r;n[o]=r[e[f]];l=l+1;e=h[l];end end end end end else if-3<o then for l=45,83 do if 1~=o then local e=e[t]n[e](n[e+1])break;end;local o,a,f,r,h;local l=0;while l>-1 do if 2>=l then if l<=0 then o=e;else if l~=0 then repeat if 1~=l then f=d;break;end;a=t;until true;else a=t;end end else if 5<=l then if l>5 then l=-2;else n(h,r);end else if l>2 then for e=25,85 do if 3<l then h=o[a];break;end;r=o[f];break;end;else h=o[a];end end end l=l+1 end break;end;else local a,o,r,f,h;local l=0;while l>-1 do if 2>=l then if l<=0 then a=e;else if l~=0 then repeat if 1~=l then r=d;break;end;o=t;until true;else o=t;end end else if 5<=l then if l>5 then l=-2;else n(h,f);end else if l>2 then for e=25,85 do if 3<l then h=a[o];break;end;f=a[r];break;end;else h=a[o];end end end l=l+1 end end end else if 6>=o then if 5~=o then local o=e[t];local a=e[f];local t=o+2 local o={n[o](n[o+1],n[t])};for e=1,a do n[t+e]=o[e];end;local o=o[1]if o then n[t]=o l=e[d];else l=l+1;end;else s[e[d]]=n[e[t]];end else if 8<=o then if 7<o then for a=48,80 do if 9>o then local o=e[t];local a=e[f];local t=o+2 local o={n[o](n[o+1],n[t])};for e=1,a do n[t+e]=o[e];end;local o=o[1]if o then n[t]=o l=e[d];else l=l+1;end;break;end;n[e[t]]=n[e[d]];break;end;else n[e[t]]=n[e[d]];end else local e=e[t]n[e]=n[e](n[e+1])end end end end end l=1+l;end;end;return ee end;local t=0xff;local r={};local h=(1);local d='';(function(n)local l=n local o=0x00 local e=0x00 l={(function(d)if o>0x2b then return d end o=o+1 e=(e+0x129e-d)%0x1b return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x4f);end return true end)'HEmSZ'and l[0x3](0x2e2+d))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7b);end return true end)'iCMfk'and l[0x1](d+0x397))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x7b);r[h]=ee();h=h+t;end return true end)'GctMq'and l[0x2](d+0x2ae))or d end),(function(f)if o>0x25 then return f end o=o+1 e=(e+0xea2-f)%0x18 return(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x45);t[2]=(t[2]*(p(function()r()end,c(d))-p(t[1],c(d))))+1;r[h]={};t=t[2];h=h+t;end return true end)'ZVDrn'and l[0x1](0x328+f))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x5e);end return true end)'lEKJI'and l[0x3](f+0x217))or(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x29);d={d..'\58 a',d};r[h]=_();h=h+((not a.uQREejHh)and 1 or 0);d[1]='\58'..d[1];t[2]=0xff;end return true end)'uUBLo'and l[0x2](f+0x212))or f end),(function(a)if o>0x1f then return a end o=o+1 e=(e+0xbb5-a)%0x1f return(e%0x03==0x0 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x98);end return true end)'apMal'and l[0x3](0x160+a))or(e%0x03==0x1 and(function(l)if not n[l]then e=e+0x01 n[l]=(0xd9);end return true end)'eAefe'and l[0x1](a+0x3b3))or(e%0x03==0x2 and(function(l)if not n[l]then e=e+0x01 n[l]=(0x70);d='\37';t={function()t()end};d=d..'\100\43';end return true end)'uIkLb'and l[0x2](a+0x3d5))or a end)}l[0x3](0x93e)end){};local e=le(c(r));return e(...);end return p((function()local n={}local e=0x01;local l;if a.uQREejHh then l=a.uQREejHh(p)else l=''end if a.EHoxGKDL(l,a.uuoenpdY)then e=e+0;else e=e+1;end n[e]=0x02;n[n[e]+0x01]=0x03;return n;end)(),...)end)((function(n,e,l,t,d,o)local o;if 4>n then if 1>=n then if-4<=n then repeat if 1>n then do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;break;end;do return function(n,e,l)if l then local e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%(e+e)>=e)and 1 or 0;end;end;end;until true;else do return function(n,e,l)if l then local e=(n/2^(e-1))%2^((l-1)-(e-1)+1);return e-e%1;else local e=2^(e-1);return(n%(e+e)>=e)and 1 or 0;end;end;end;end else if 3~=n then do return 16777216,65536,256 end;else do return e(1),e(4,d,t,l,e),e(5,d,t,l)end;end end else if n<6 then if n>=0 then repeat if n~=4 then local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;break;end;local n=t;local h,a,d=d(2);do return function()local t,l,e,o=e(l,n(n,n),n(n,n)+3);n(4);return(o*h)+(e*a)+(l*d)+t;end;end;until true;else local n=t;do return function()local e=e(l,n(n,n),n(n,n));n(1);return e;end;end;end else if n>6 then if n==8 then do return l(n,nil,l);end else do return setmetatable({},{['__\99\97\108\108']=function(e,l,t,d,n)if n then return e[n]elseif d then return e else e[l]=t end end})end end else do return d[l]end;end end end end),...)