Run it
Copy the script and paste it into your executor.
((y8,N,E,M,j8,S,h8,j,o,d,q,k,r8,H,V,B8,r,J8,W,Q,_,n,l,T8,K,x,t8,Q8,h,d8,G,a8,a,Z8,t,O,p,b8)p=({}); s=(); s~= p[] p[]=+((V.((V.(b8[],(s)))+b8[]))-b8[]);s=-+(V.(b8[]-s+b8[]>b8[] b8[] b8[],b8[],b8[]));p[]=(s); s=p[];; ;; ; Z,c,A,m,L=;s=; s<= (s<=) s~= p[] s=(-+(((V.(b8[]))<=p[] b8[] b8[])-b8[]==b8[] b8[] b8[]));p[]=s; s=p[];; m=({}); ( p[]) s=(p[]); p[]=(-+((V.((V.((V.(b8[])),(p[]))),(p[])))==b8[] b8[] p[]));s=(-+(((p[]>s p[] b8[])+b8[]~=b8[] b8[] s)~=p[] b8[] p[]));(p)[]=s;;;; s== A=V.G; p[] s=-+(V.(b8[]+b8[]+p[]-b8[],(p[])));(p)[]=(s); s=p[];;; c=; p[] s=-+(V.((V.(b8[]-b8[],(s)))+b8[],(s)));(p)[]=(s); s=p[];;;; s<= s< p[] s=(-+(V.(p[]-p[]+b8[]-b8[],(p[]))));p[]=s; s=p[];; L=(getfenv);;; (s>) ( p[]) s=p[]; s=(+((V.(b8[],(p[])))+s+p[]-b8[]));p[]=s;;; ( p[]) s=p[]; s=-+((V.((V.(p[]>b8[] b8[] p[],(p[]))),(p[])))-p[]);(p)[]=(s);;;;;;;s=; s== p[] s=+(V.((V.(b8[],(p[])))-p[]-b8[]));p[]=(s); s=(p[]);; s~= ;;;; b,P,u,D=({});s=(); s> s< u=h8; ( p[]) s=p[];(p)[]=-+(b8[]-p[]-p[]-p[]-b8[]);s=-+(b8[]+b8[]+p[]+p[]-p[]);(p)[]=s;; s< P=V.j; ( p[]) s=p[];(p)[]=-+(V.((V.(b8[]-p[]~=p[] b8[] p[]))));s=(-+(V.((V.(b8[]+b8[],p[]))~=p[] b8[] b8[],(p[]))));(p)[]=(s);;; s> p[] s=(-+(((V.(s,p[],b8[]))-b8[]>p[] p[] p[])+p[]));p[]=(s); s=(p[]);; (s> s<) D=((F,w,R) Y; B=,, B== Y=(w-F+);; B~= (F>w) ;;;;;; Y>= R[F],R[F+],R[F+],R[F+],R[F+],R[F+],R[F+],R[F+],(F+,w,R); Y>= R[F],R[F+],R[F+],R[F+r8],R[F+],R[F+],R[F+],(F+,w,R); Y>= R[F],R[F+],R[F+],R[F+],R[F+],R[F+],(F+,w,R); Y>= R[F],R[F+],R[F+],R[F+r8],R[F+],(F+,w,R); Y>= R[F],R[F+],R[F+d8],R[F+r8],(F+,w,R); Y>= R[F],R[F+],R[F+],(F+r8,w,R); (Y>=) R[F],(F+,w,R); R[F],R[F+],(F+,w,R);;;;);;;;; ; l8=((...)(...)[...];); R8=(Y,F,R) B=,, B< Y=Y ; (B< B>) B> (R-Y+)> (Y,R,F); (F,Y,R);;;; R=R #F;;;;;;s=(); s== p[] s=(-+(V.((V.(b8[]))+p[]~=p[] b8[] p[])));p[]=s; s=p[];;; s== p[] s=-+((V.((V.((V.(p[],(p[]))),p[],p[]))))+p[]);p[]=s; s=(p[]);;; s~= ;;;; ; e8;s=(); s>= D=,Q8 (m)[D]=(D);;; e8=(a8.char); ( p[]) s=(p[]);(p)[]=(+(V.((V.((V.(p[],b8[],b8[])),(p[])))+p[])));p[]=(V.(p[]+s~=p[] p[] p[]))==b8[] p[] p[];s=(-+(((V.(p[],(s)))==p[] p[] b8[])+p[]+b8[]));(p)[]=s;;;; ; v,J;s=; (s<=) (s<=) v=((D)D=(D,,); (D,,({},{__index=(R,D) A,j,Y,B,F=(D,,); P=(F-)+(B-)*+(Y-)*+(j-)*+(A-)*;B=(,P);(R)[D]=(B); B;}));)((,)); ( p[]) s=p[]; s=(+(((V.(b8[],p[]))-b8[]~=b8[] p[] p[])-p[]));p[]=(s);; J=(V.L); ( p[]) s=(p[]); s=(-+(((V.(p[],(p[])))-b8[]==p[] p[] p[])+p[]));(p)[]=(s);;; ;; ;e8=(D)v=D;Z=();; P;Q8=();s=(); s~= s== ( p[]) s=p[]; s=(+(V.(p[]-p[]+p[]+p[],b8[],p[])));(p)[]=s;; s== Q8=; ( p[]) s=p[]; s=+(V.((V.((V.(p[]>=p[] p[] p[]))))));(p)[]=(s);; s~= ;;; P=({}); ( p[]) s=(p[]);(p)[]=+((V.((b8[]>b8[] p[] p[])>p[] b8[] p[]))-p[]);s=+(V.((V.((V.(p[]<p[] p[] b8[],(p[])))))));p[]=(s);;;;s=; s== p[] p[]=(+((V.((V.((V.(p[])))),p[],p[]))+p[]));p[]=(-+(V.((V.(p[]-b8[]))+p[])));s=(-+(V.((b8[]<=p[] p[] p[])-p[]-p[],(p[]))));(p)[]=(s); s=p[];; s== ( p[]) s=p[]; s=-+((V.(p[]-b8[],p[]))+p[]-p[]);(p)[]=(s);;; s~= ;;;; ; Y=() D,R=(v,Z,Z),(); R== R=;Z+=o;; R== D;;;;; C,U;s=; s== C=(() D,F,R=(); D<= F,R=(,v,Z);D=;; D>= Z=R;D=(); F;;;;); ( p[]) s=p[]; s=-+((p[]+p[]>=p[] p[] p[])-p[]>=p[] p[] p[]);p[]=(s);;; s~= U=V.a;;;; ; I8,j,B,w={};s=; s~= B=(() F,D,R=(); F== D,R=(,v,Z);Z=(R);F=; F== D;;; ;);w=() D,F; R=,, (R<=) R<= Z=(F); D;; D,F=(,v,Z);;;;;; j=(); p[](p)[]=(-+((V.((V.((V.(p[])),(p[]))),p[]))+p[]));s=(+((V.(p[]-p[]))-b8[]-p[]));p[]=s; s=(p[]);;;; ; F,g,R;s=; s> g=(V.D);R=(() o8,A8=,(); D=(v,Z,Z);o8+=((D> D- D)*A8);A8*=;Z+=; D<; o8;);; (s<) F=a8.match; p[] s=-+(V.((V.((V.(p[],(p[])))))-p[],(p[])));p[]=(s); s=(p[]);;;;; G8,y,V8,p8,A=h8,h8;s=; s> s> ; p8=(() W,D=; W< W> (v,Z-D,Z-); (W>) W< W=;D=();; W=;Z+=D;;;;); p[] s=-+((V.((V.(p[]+p[]))))+p[]);p[]=s; s=p[];;;; s== A=(...) D; W=,, W<= D=(,...); (W<=) D,{...}; D==t D,P;;;;;; ( p[]) s=p[]; s=(+(((V.(p[]))-b8[]==b8[] p[] p[])-b8[]));p[]=(s);;; V8=() W,D=; W~= W~= (D>=c) D-j;;;; W=;D=();;; ; D;; p[] s=-+((V.((V.(p[]+p[])),(p[])))+b8[]);p[]=(s); s=(p[]);;;;;; (e,h) D,c,U8=e[],e[],e[]; f,H8,i,w8,z,N,P=e[],e[],e[],e[],e[],(e[]);P=((...) I,s8,W8,S8=(D),,,(); M8,m8=(...); c8,v8,j,T,D,X,X8=,(()); L8,K8,g8,Y8=(() t=(i[c8]); (t<) (t<) (t<) (t<) (t<) (t<) t~= W=N[c8]; d,L,H=(); (d) (I)[W+]=(L);I[W+]=H;c8=(H8[c8]);; I[H8[c8]]=(I[U8[c8]]-f[c8]);; W,H=U8[c8],(I[N[c8]]);I[W+]=H;I[W]=H[w8[c8]];; t< (I[U8[c8]]) c8=H8[c8];; t== (I)[H8[c8]]=I8[U8[c8]]; W=(U8[c8]);I[W](I[W+]);s8=W-;;;; (t<) t< I[U8[c8]]=(I[H8[c8]]/I[N[c8]]); t== I[U8[c8]]=(f[c8]+I[H8[c8]]); W=,N[c8](I)[W]=m8[W];;;; t>= t== I[U8[c8]]=((I[N[c8]],I[H8[c8]])); W=N[c8];s8=W+U8[c8]-;I[W]=I[W]((W+,I,s8));s8=W;; T=({[]=X,[]=X8,[]=j,[]=T}); W=U8[c8];X8=I[W+]+;X=(I[W+]+);j=I[W]-X8;c8=(N[c8]);;;; (t>=) (t>=) t< (I)[H8[c8]]=I[N[c8]]/z[c8]; t== W=D; W H,L W (H>=) L[]=L;(L)[]=I[H];L[]=;W[H]=;;;; ; ,H8[c8],s8; W=(U8[c8]);(I)[W]=I[W](I[W+]);s8=(W);;; t>= t== I[N[c8]][I[H8[c8]]]=(I[U8[c8]]); h[U8[c8]][I[H8[c8]]]=I[N[c8]];;(I)[U8[c8]]=();;; t< t< j=(T[]);X=T[];X8=(T[]);T=(T[]); t== W,d=N[c8],(U8[c8]); d~= s8=W+d-;; L,U,H=(H8[c8]); d== U,H=(I[W]()); U,H=(I[W]((W+,I,s8)));; L== s8=W-; L~= U=(W+L-);s8=(U+); U=(U+W-);s8=(U);;d=; A=W,U d+=;(I)[A]=H[d];;;(I)[H8[c8]]=#I[N[c8]];;; (t<) t~= I[H8[c8]]=(I[N[c8]]+I[U8[c8]]); I[N[c8]]=w8[c8]..I[U8[c8]];; I[U8[c8]]=(h[N[c8]]);;;;; t>= t>= t>= (t>=) I[N[c8]]=( I[U8[c8]]); t~= W8=(N[c8]); W=,W8 (I)[W]=(m8[W]);;S8=(W8+); W=(D); (W) H,A W H>= A[]=(A);(A)[]=(I[H]);(A)[]=;W[H]=();;;; ; ,N[c8],;;; (t>=) I[N[c8]]~=w8[c8] c8=U8[c8];; t~= (I)[H8[c8]]=I[N[c8]]%z[c8]; W=N[c8];(I[W])((W+,I,s8));s8=W-;;;; t>= (t>=)(I)[N[c8]]=(I); t~= c8=H8[c8]; I[N[c8]]=I[H8[c8]]==z[c8];;; (t<) t~= I[H8[c8]]=i;(I)[H8[c8]]=h[N[c8]][z[c8]];; H=(N[c8]); A=I[H]; W=U8[c8];(J)(I,H+,s8,W+,A);;;; (t<) t< t< I[N[c8]]=I[H8[c8]][z[c8]]; t~= I[N[c8]]=(e); I[H8[c8]]=(H8);;; (t<) t~= W=(D); W H,A W H>= A[]=(A);A[]=I[H];A[]=;(W)[H]=();;;; ; W=N[c8]; ,W,W;(I)[H8[c8]]=m8[S8];; I[N[c8]]=I[H8[c8]]>=I[U8[c8]];;; (t>=) t< (I)[N[c8]]=(I[H8[c8]]+z[c8]); t== (I[U8[c8]])[f[c8]]=w8[c8]; W=h[H8[c8]];(W[][W[]])[I[U8[c8]]]=I[N[c8]];;; t< W=(h[H8[c8]]);(W[])[W[]]=I[N[c8]]; t== I[N[c8]]=I[H8[c8]]*I[U8[c8]]; A=D; A H,W A H>= (W)[]=(W);W[]=I[H];W[]=();A[H]=;;;; ; W=N[c8]; ,W,W+U8[c8]-;;;;;; (t<) (t<) t>= t< t< (I)[N[c8]]=U8; t~= W=h[H8[c8]];I[U8[c8]]=(W[][W[]]); I[N[c8]]=I[H8[c8]]*z[c8];;; (t<) t== (I8)[U8[c8]]=(I[N[c8]]); I[U8[c8]] c8=N[c8];;; W=U8[c8];s8=(W+N[c8]-);I[W]((W+,I,s8));s8=W-;;; (t<) (t>=) A,U=U8[c8],(N[c8]);s8=A+U-; L=(D); (L) W,H L (W>=) (H)[]=(H);H[]=I[W];(H)[]=;(L)[W]=();;;; ; ,A,U; t~= I[U8[c8]][w8[c8]]=(I[N[c8]]); s8=(U8[c8]);(I[s8])();s8-=;;; (t<) t~= e,W,N8,H,A=,; W== N8=;A=();W=-+((I8[]((I8[](t+t)),t))+t);; W== N8*=A;W=-+(I8[]((I8[]((I8[]((I8[](t)),W)),(I8[](,)))),t,t)); W== A=(I8);;;; i8;W=; U=(); W~= A=(A[e]);W=(+(I8[]((I8[](t,(I8[](,))))+W-W,())));; e=(I8);;;;e=(e[U]);W=; W== U=I8;W=(+(((I8[](W-t))>W W t)~=t W t));; W== i8=;W=(+(I8[]((I8[]((I8[](t))))~=W t W))); W~= U=(U[i8]);;;;i8=t;W=(); (W<=) W~= i8-=H;W=-+((I8[](t+t))-t+W);; H=(t);W=+(I8[]((I8[]((I8[](t,(I8[](,))))))==t t t));; H=i[c8];;;;i8-=H;W=; P8=(); W> i8-=H;W=+((I8[]((I8[](t,W,W))-W))-t);; W< W> i8=(i[c8]);U-=i8;; W> W< H=i[c8];W=(+(I8[](t-t+W-W,W,W)));; (W<) H=();U=(i8,H);W=-+((I8[]((W==W t t)+t,(W)))-W);;;;W=(); (W< W>) W> U=(t);e-=U;W=-+(I8[]((I8[]((I8[](W,()))+W,t,W))));; (W<) e=(U);W=(+(I8[]((I8[]((I8[](W,()))))-t,t,W)));;; A=(e);N8+=A;;;;P8+=N8;W=(); W> W< P8=(I);W=+((I8[]((I8[]((I8[](t,())),W))))-W); W< N8=(U8[c8]);P8=P8[N8];; (W>) (i)[c8]=(P8);W=-+(I8[]((I8[]((I8[](W))-W,W,W)),W));;;;;;N8=w8[c8];A=I;e=N[c8];A=A[e];P8[N8]=(A);(I)[H8[c8]]=-I[U8[c8]];; I[U8[c8]]=I[N[c8]]<=I[H8[c8]];;; (t<) t>= t>= t~= H,u8,L,F8,A=; H> u8=;F8=;L=;H=+(I8[]((I8[]((I8[](H-t)),()))));; H< F8*=L;;;;H=; H== L=I8;H=(-+(((t>t H H)+H==H t H)==t t H)); H== A=;;;;L=L[A]; J,W=();H=(); (H>) W=();; A=(I8);H=(-+((I8[]((I8[]((I8[](t,H,t)))),()))>=t t H));;;A=A[W];W=I8;W=W[J];J=t;H=; H== W=(J);J=(i[c8]);H=(-+((I8[]((H<t t t)+H,t))+t));; H== W=W<J;H=(+(I8[]((I8[]((I8[](H))+t))))); H== W W=(i[c8]);; ( W) W=t;;;;;H=(); H== J=(i[c8]);H=(-+(I8[]((I8[](t+H))<=t H t,()))); H== A=(W,J);H=(-+(I8[]((I8[](H))+H-t,(I8[](,)))));; H== W=(t);H=-+((I8[]((I8[](t,()))+t))+H);; H~= H== W=(i[c8]);A-=W;H=(+((I8[](t-t,(H)))+H+t));; H== L=(A);;; A-=W;H=(-+((I8[](H-t))+t+t));;;;A=t;L-=A;H=; H== A=(i[c8]);H=-+((I8[](t+t<=H t t,H))+t); H== L-=A;H=(-+((I8[](H+t,(H)))+t-H)); H== F8+=L;H=(I8[]((I8[]((I8[](t+t)),t,H))));; H~= u8+=F8;;;;;H=(); (H>)(i)[c8]=(u8);H=+(((I8[]((I8[](H,t,t))))<=H t t)+H); (H<=) u8=(I);H=(+(I8[]((I8[]((I8[](H+t,()))))))); F8=(N[c8]);;;;;H=(); (H>) u8=(u8[F8]);H=(+((I8[]((H<H t H)-t))+t));; H< u8=(u8~=F8); (u8) A=U8[c8];c8=A;;; F8=w8[c8];H=(-+((I8[]((I8[](H))-H))+H));;;;(h[U8[c8]])[f[c8]]=I[H8[c8]];; n8=f[c8]; W=n8[]; D8=#W; J=D8> {}; f=(n8,J);(f,v8);I[H8[c8]]=(f); J H=,D8 n8=(W[H]);f=n8[]; W=(n8[]); f== ( D) D={};; G=(D[W]); ( G) G={[]=W,[]=I};(D)[W]=(G);;J[H-]=(G); f~= (J)[H-]=h[W]; J[H-]=I[W];;;;; t>= t~= H,D8,G,f,n8,J,W=; (H>) H> n8=-;H=(-+((I8[]((I8[](H))))+H-H));; G=();D8*=G;H=(+((I8[]((I8[](t-t,(t))),H))+t));; H> H~= G=(I8);H=(-+((I8[](t-t,H))+H-t));; f=;;; D8=();H=(-+(I8[](H-H-t-H)));;;;;H=; H~= H== f=I8;H=(+((I8[](H-H<H H t,H,H))-H));; H== W=();f=f[W];H=-+((I8[](t))+t+H-t);; H== W=(t);H=-+(I8[]((I8[]((I8[](H+t,(t)))))));; H~= H== f=(W,J);;; J=(t);H=(+(((I8[](H+t))<H t t)-t));;;; G=G[f];H=(+((I8[]((I8[]((I8[](t)),H)),(t)))>t t t));;;H=(); H< H> W=i[c8];H=(+(t-t-t+H+t)); H> H< W=t;; (H> H<) H< f f=t;;H=+(I8[](H+t-t>t t t)); H> f=(f==W);H=-+((I8[]((I8[](H+t)),(t)))~=t H t);;; (f) f=t;;H=-+(I8[]((I8[](t))-H<=H t H));;;;f=f<W; f f=i[c8];;H=; H< W=i[c8];; (H>) f f=t;;H=(+(((I8[](t+t))~=H t t)-H));;;;f=f>W; (f) f=i[c8];; f f=(i[c8]);;W=(i[c8]);f-=W;W=(i[c8]);H=; H== f-=W;H=(-+(I8[]((I8[](H))-t+H,(t))));; H== W=(t);H=(-+(I8[]((I8[]((I8[](H,t,H))-t,(H))),(H))));; H~= H~= W=(i[c8]);G=(f,W);;; f-=W;H=(I8[]((I8[](t+H)),(t)))~=H t H;;;;D8+=G;H=(); H>= i[c8]=(n8);; n8+=D8;H=+((I8[](H-H))-H>=H H H);;;n8=(I);H=; H== D8=(N[c8]);H=+(I8[]((I8[](H-H,H))+t,H,H)); H~= G=I;;;;f=H8[c8];H=(); H== G=(G[f]);f=z[c8];G=G[f];H=(-+((I8[](H))-H+H<=H H t));; H== (n8)[D8]=(G);;;;(I)[H8[c8]]=I[U8[c8]];; I[N[c8]]=I[H8[c8]]%I[U8[c8]];;; (t<) (t>=) I[H8[c8]]~=I[U8[c8]] c8=N[c8];; t~= (I)[U8[c8]]=(H8[c8]); W=(U8[c8]);(I)[W]=I[W]((W+,I,s8));s8=(W);;; (t<) t== I[H8[c8]]=(I[U8[c8]][I[N[c8]]]);(I)[H8[c8]]=(h[U8[c8]][I[N[c8]]]);;(I)[H8[c8]]=z[c8]^I[N[c8]];;;; t>= (t>=) (t<) t>= t~= W=(H8[c8]);I[W](I[W+],I[W+]);s8=(W-); W=N[c8],U8[c8](I)[W]=();;; s8=(U8[c8]);I[s8]=I[s8]();; t>= t== H,G=M8-W8-,H8[c8]; H< H=(-);; M8=; W=G,G+H I[W]=(m8[S8+M8]);M8+=;;s8=(G+H);;(I)[U8[c8]]=I[H8[c8]]..I[N[c8]];;; (t>=) (t>=) W=(h[U8[c8]]);(I)[H8[c8]]=W[][W[]][I[N[c8]]]; t== (I)[U8[c8]]=v8[w8[c8]]; W=();j+=X8; X8<= W=j>=X; W=j<=X;; (W) (I)[N[c8]+]=j;c8=U8[c8];;;; (t>=) I[H8[c8]]=N; t== H=(D); H W,h H W>= (h)[]=h;(h)[]=(I[W]);(h)[]=;H[W]=;;;; ; ,U8[c8],; h,G,m8,W,H,J=(); (h>) (h<=) m8=;h=(-+(I8[]((I8[]((I8[]((I8[](H8[c8],(h))),t)),(h)))))); G=();h=(-+(I8[]((I8[]((I8[](H8[c8],(t))),H8[c8]))>=h h H8[c8],(h))));; h== G*=m8;; H=();h=-+(I8[]((I8[]((I8[]((I8[](h))))))));;;;; S8,k8=();h=(); h== m8=I8;J=();h=-+((I8[]((I8[](h)),(t)))+t+h); h== m8=(m8[J]);;;;J=(I8);h=(); h~= h== S8=(I8);h=-+((I8[]((I8[](N[c8]))+h,H8[c8]))+h); h== k8=();h=-+(I8[]((I8[](H8[c8]))-h>=H8[c8] h h,(t))); h~= S8=S8[k8];;; J=(J[S8]);h=(+(I8[](t+t-h+t)));;;;h=; h< W=;k8=k8[W];W=i[c8];; h> k8=I8;h=-+((I8[]((I8[](h))))-h+h);;;; v8=(t);W+=v8;v8=(i[c8]); W8=(H8[c8]);h=; h== k8=(W,v8,W8);h=-+(I8[]((I8[]((I8[](t-H8[c8],h,h))))));; h== W=N[c8];h=+((I8[]((I8[]((I8[](N[c8],N[c8])),h,N[c8]))))+h); h== k8-=W;h=(-+(I8[]((I8[]((I8[](H8[c8],t)),h,t))+H8[c8],(t)))); h== W=(H8[c8]);h=+(((I8[](h))-N[c8]<=t h N[c8])+t);; h== k8=(k8==W);h=(-+((h==t h H8[c8])+h-H8[c8]>=h h h)); h== (k8) k8=(N[c8]);;;;;;; ( k8) k8=t;;S8=(k8);J=(S8);h=(); h< S8=t;h=(-+(I8[](H8[c8]-t+t-h))); (h>) J-=S8;;;;S8=i[c8];m8=(J,S8);G+=m8;H+=G;h=(); h< h> (i)[c8]=(H);h=+((h+h~=t N[c8] t)-h-h); h< H=I;h=-+(I8[]((I8[]((I8[]((I8[](t,(t))),h)))))); h> G=N[c8];m8=(I);;;;J=H8[c8];m8=m8[J];J=z[c8];m8+=J;H[G]=m8;;;; t>= t>= t< ((w8[c8]<I[N[c8]])) c8=(U8[c8]);; t~= I[N[c8]]==I[H8[c8]] c8=U8[c8];; h=H8[c8];(I)[h]=I[h](I[h+],I[h+]);s8=(h);;; (t>=) I[U8[c8]]=(w8[c8]); t~= i=(D); i z,h i z>= (h)[]=(h);h[]=I[z];h[]=();(i)[z]=();;;; ;; ((I[H8[c8]]<I[U8[c8]])) c8=N[c8];;;;; (t>=) t~= (I[N[c8]]<=I[H8[c8]]) c8=(U8[c8]);; T={[]=X,[]=X8,[]=j,[]=T};s8=(U8[c8]); h=((...)(S)(); M,X ... (,M,X);;);(I[s8],I[s8+],I[s8+]);j=h;c8=N[c8];; t< I[H8[c8]]=I[N[c8]]-I[U8[c8]]; t== (I)[U8[c8]]=I[N[c8]]^I[H8[c8]]; I[N[c8]]={};;;;;;;;c8+=;;); L8 K8 Y8== I[g8](); I[g8]((g8+,I,s8));; g8 (g8,I,Y8);;; S=D; S t,D S t>= (D)[]=(D);(D)[]=I[t];(D)[]=;(S)[t]=();;;; ; (K8)== (K8,) (..(c[c8])....(K8),);(x)(K8,);; (K8,);;;); P;; P,X=(h8);a8=;Q8=;m=;s=(); s<= s== m=();; Q8=(...)(...)();; p[](p)[]=(-+((p[]~=b8[] p[] p[])+p[]-b8[]>p[] p[] b8[]));s=-+(V.(((V.(p[],p[],p[]))<=p[] p[] p[])+p[],p[],p[]));p[]=s; s=p[];;; s== X=() H8,S; D=,, D< H8=(()-); S=(H8);;; R8,v8,W8,U8,T,h,I,S8=(H8),(); v8== W8={h8,h8,h8,h8,,,h8,h8,,,};v8=(); v8== v8=();U8=(H8);T=(H8);; v8== v8=();h=(H8); v8== v8=;I=(H8); v8~= v8~= W8[]=R8;;; v8=();S8=(H8);;;;v8=; D=,, D<= v8=;; D> (W8)[]=(U8);;(W8)[]=S;;;;;(W8)[]=(I);W8[o]=S8;(W8)[]=T;W8[]=(h); N=,H8 c,D,_,Y8,z,i=; c< c=();z=();; c> i=(Y8%a);; c> c< c=;D=();_=();Y8=();;;; w8,L8,x,t,F;c=; c<= c== c=;L8=((Y8-i)/); t=(_-x)/;c=;; c<= F=((z-w8)/);; c~= w8=z%;c=;; x=(_%);c=();;;;;; M=,, (M<=) M~= T[N]=D;;(U8)[N]=t;;; S8[N]=L8;;;R8[N]=F; M=,, M< i== P c=(G8[L8]);_=(#c);z=(); (z<) (z>) c[_+]=(N);;; z=();c[_+]=(W8);;;c[_+]=; S[N]=(G8[L8]);; i==t8 (S8)[N]=(L8); i~=j8 Y8=();D=(); D> (y)[Y8+]=N;; D< D> Y8=(#y);D=;; D< D=;y[Y8+]=(S);;;;(y)[Y8+]=(L8);;; x== P D,c,M=; D<= D~= (c)[M+]=N;; M=(#c);D=();; D~= D=();c[M+o]=W8;; c=(G8[t]);D=();;;;c[M+]=();(I)[N]=G8[t];; x== (U8)[N]=t; x== D,c=; D> (y)[c+]=(I);; (D<) c=(#y);D=();;;(y)[c+d8]=N;(y)[c+]=(t);; w8== (P)(h)[N]=(G8[F]); t,c,D=; t> D=(#c);; (t<) c=(G8[F]);t=();;;;(c)[D+]=W8;(c)[D+]=N;(c)[D+]=(r8);; w8== (R8)[N]=F; w8==j8 D,t=(); D> (y)[t+]=(N);; D< D> y[t+]=(h);D=();; (D<) t=(#y);D=();;;;;(y)[t+r8]=F;;;;;;(W8)[a]=();T=();R8=; D=,, D~= (W8)[n]=R8;; R8=(T);;; D=,T I=(); F=,, F== I=(); F== (u[I]) U8=I/;S8={[l]=I%,[]=U8-U8%};H8=; H8== (u)[I]=(S8);H8=; H8== R8[D]=S8;;;;(R8)[D]=u[I];;;;;;H8=(); F=,, (F<=) (F>) W8[j8]=(H8);; (F>=) D=,() S=;U8=;h=; h== h=;S=();; h== h=;U8=(S/d8); S%~= v8=();S8=(); D=U8-U8%,v8 (H8)[D]=S8;; H8[v8]=U8-U8%;; h~=X6C then else v8+=o;break;end;end;end;else return W8;end;end;else if F==0X4c then(W8)[0X9]=R();continue;else H8=({});continue;end;end;end;end;if not p[0x070a9]then s=(3185447709+((V.o((p[2252]~=p[11707]and p[3493]or b8[0x8])+p[0X00580e]))-b8[0X3]));(p)[0x70a9]=s;else s=(p[28841]);end;else a8=function()local D,t,S,N;for n=0B111111,0xd5,0X0019 do if n==0xA3 then P=(t);continue;elseif n==138 then t=(Y()~=0X0);continue;elseif n==0X71 then G8=g(D);continue;elseif n==0X3F then u={};continue;elseif n==0X58 then D=R()-0x6756;continue;elseif n==188 then for P=0X1,D do local h,F=h8,Y();for D=0x3b,248,0b110_1110 do if D==0XA9 then if not(t)then(G8)[P]=h;else G8[P]=({[0X0]=h});end;break;else if F>0X2F then if not(F>0X35)then h=p8();else h=(Y()==0x1);end;else if F~=0X1_0 then h=B();else h=w();end;end;continue;end;end;end;S=(R()-22111);continue;elseif n==0Xd5 then N=g(S);end;end;y=g(S*0X3);for D=0B011_000,0B01__01__01100,0X78__ do if D==0b10_01000__0 then for D=0B1,#y,0B11__ do(y[D])[y[D+0X1]]=N[y[D+2]];end;break;else for D=o,S do N[D]=X();end;continue;end;end;if t then(I8)[0X4]=G8;(I8)[0x5]=N;end;t=N[R()];G8=(nil);y=(nil);S=0B110011_;while true do if S==0X33 then S=0X76_;u=h8;continue;else return t;end;end;end;if not(not p[0x1f4_])then s=p[0X1f4];else s=-0X39Cc7Ee+((V.a((V.o(p[30495]))-p[0X74e1],p[0X497],b8[0X2]))+p[0x59f2]);(p)[0X1f4]=(s);end;end;end;s=0B100001;repeat if s>0XC then if s~=0x21 then(I8)[0B11_11]=q;I8[T8]=(J8);break;else I8[9]=V.O;if not(not p[8685])then s=(p[0X21ed]);else s=(-0X41FffFF_4+(V.b(p[11707]+s-p[21104]+p[0X625d],(p[0X14A4]))));p[8685]=s;end;continue;end;else(I8)[0XD]=(K.bnot);(I8)[0B1010]=(k);I8[0Xe]=(E);I8[0B1000]=K.bxor;(I8)[0X10]=(r);if not(not p[0x1_A68])then s=(p[6760]);else s=(-4097050537+((V.b(p[14792]-b8[0X8]<p[24]and b8[0B00111]or p[0X590A],(p[0X0021Ed])))-p[15188]));p[6760]=s;end;end;until false;s=(0X1d);repeat if s==0x1d then(I8)[0b1100]=(B8);(I8)[y8]=(Q);if not p[0X3AA7]then(p)[0X77Da]=(-211812278+(V.a((V.R(p[0X77__1__f]+p[14710],(p[0x580e])))+p[0X47de])));s=(-2853611205+(((V.R((V.r(p[0Xda5],(p[21247]))),(s)))>=b8[0B11]and p[22542]or b8[0x08])-p[9030]));(p)[0X3aA7]=s;else s=p[0x3aa7];end;else if s==0X58 then I8[7]=K.countrz;break;end;end;until false;m=v(m,b)(a8,O,l8,Q8,w,Y,C,b8,e8,v);return v(m,b);end)(0X6,string.pack,bit32.band,coroutine.wrap,0B10__0,coroutine.yield,nil,unpack,0X1,string.sub,bit32.bor,bit32.rrotate,0X3,pcall,{D=table.create,s=bit32.bor,O=bit32.countlz,z=bit32.bnot,i=bit32.rshift,b=bit32.lrotate,r=bit32.lshift,q=bit32.band,G=string.gsub,R=bit32.rrotate,a=bit32.bxor,j=setmetatable,o=bit32.countrz,L=table.move},bit32.lshift,string.unpack,bit32.lrotate,string.byte,bit32.rshift,tostring,0X7,0x2,11,bit32,error,0X1,0B11111111,select,0B10,setfenv,string,8,type,0B0,function(...)(...)[...]=(nil);end,{},{26398,4234361033,3185447609,2546471956,713179304,1215502892,2188329792,2853611388,3567045259})(...);Obfuscated. The code is scrambled, so you can't read what it does. Common for key systems, but take care.
cool