Run it
Copy the script and paste it into your executor.
((h,Z,T,C,j,e,SD,qD,S,sD,PD,s,p,zD,z,fD,K,LD,HD,d,b,ZD,y,l,f,P,R,V,a,G,t,KD,O,q,n,vD,w,m,g,MD,U,x,A)x={}; gD,D=(); gD< ( x[]) gD=(x[]); gD=(+((A[]==A[] A[] A[])-A[]-A[]+A[]));(x)[]=(gD);; D=(e.char);;;;gD=(); gD< ; gD> ( x[]) gD=(x[]);(x)[]=-+(A[]-A[]-x[]+A[]-gD);(x)[]=-+(A[]+A[]-A[]-A[]-A[]);gD=-+(A[]+A[]-A[]+gD+A[]);(x)[]=(gD);;;;; H,ED;gD=; gD== ED=(e.byte);; H=(e.gsub); x[] x[]=-+((x[]>=A[] A[] x[])+A[]+A[]+x[]);(x)[]=(-+((A[]>=x[] A[] x[])-x[]+A[]+A[]));gD=-+(x[]+x[]+A[]-gD+A[]);x[]=(gD); gD=(x[]);;;; F,v;gD=; gD== F={[]=,,,,,,,K,,S,,,,,,,,,,,,,,,,,,,,,,,}; x[] x[]=(-+(A[]-x[]+A[]-A[]+x[]));gD=+(gD-x[]-A[]+x[]>A[] A[] gD);x[]=(gD); gD=(x[]);; v=zD.U;;; ; E,r,M=({});gD=(); gD== r=;M=(); ( x[]) gD=x[]; gD=-+(x[]-x[]+x[]-x[]+A[]);(x)[]=(gD);; gD~= ;;; ; (W,S,i) Y,I=; Y== I=S-i+; I>= W[i],W[i+fD],W[i+],W[i+],W[i+],W[i+],W[i+],W[i+],(W,S,i+); I>=n W[i],W[i+],W[i+],W[i+vD],W[i+],W[i+h],W[i+],(W,S,i+); I>= W[i],W[i+],W[i+],W[i+],W[i+],W[i+],(W,S,i+); I>= W[i],W[i+],W[i+l],W[i+vD],W[i+],(W,S,i+h); I>= W[i],W[i+],W[i+],W[i+vD],(W,S,i+); I>= W[i],W[i+],W[i+],(W,S,i+); (I>=) W[i],(W,S,i+); W[i],W[i+fD],(W,S,i+);;;;;; Y=(); i>S ;;;;; X,J,Y;gD=(); gD< J=(W,I,i) S=,, S== ((i-I+fD)>s) (W,I,i); (W,i,I);;; S== i=(i #W); S~= I=(I fD);;;;;; ( x[]) gD=(x[]);(x)[]=-+(A[]+gD+A[]-x[]+A[]);gD=+((x[]~=A[] x[] x[])+x[]-A[]-A[]);(x)[]=gD;; gD> gD< Y=;; gD> X=({}); ( x[]) gD=x[]; gD=(+(x[]+A[]-A[]+x[]-x[]));x[]=(gD);;;;; ; ID=((S){(E,,S)};);K=();e=(); s,dD,YD;gD=; (gD<=) (gD>) K=(bit zD.j); ( x[]) gD=x[]; gD=(-+((x[]<x[] A[] A[])+A[]-A[]<=A[] x[] gD));x[]=gD;; gD~= dD=zD.k; ( x[]) gD=(x[]); gD=-+(((A[]<x[] gD x[])<=x[] A[] A[])+gD+x[]);(x)[]=gD;; s=w; ( x[]) gD=(x[]); gD=+((x[]>=x[] A[] A[])+x[]-x[]<A[] x[] gD);(x)[]=gD;;;; gD~= e={}; ( x[]) gD=(x[]); gD=(-+((x[]>x[] gD x[])-x[]-x[]~=x[] A[] x[]));(x)[]=(gD);; YD=();;;; ; u,W,_,C=();gD=(); gD== S=O, (X)[S]=(S);; ( x[]) gD=x[]; gD=(-+(A[]+x[]+x[]+x[]+x[]));(x)[]=gD;; gD~= gD== W=((S)S=(S,,); (S,,({},{__index=(L,S) i,B,k,N,I=(S,,); H=(I-)+(N-)*+(k-)*+(B-)*+(i-)*;N=(H%);H=(H/);H=(H-H%);i=H%;H=(H/);H=(H-H%);B=(H%);H=H/;H=(H-H%);I=H%;H=(H/);k=X[I]..X[B]..X[i]..X[N];H=H-H%;L[S]=k; k;}));)((,h)); ( x[]) gD=(x[]);(x)[]=(+((A[]>x[] A[] x[])-A[]-A[]+x[]));gD=(-+((x[]>=x[] x[] x[])-A[]-x[]>=x[] A[] A[]));(x)[]=gD;; gD== _={}; x[] gD=+(((A[]==A[] A[] x[])<A[] x[] gD)+A[]>x[] x[] x[]);x[]=(gD); gD=x[];; gD== C=();;;; ( x[]) gD=(x[]); gD=-+(((x[]<x[] x[] x[])-A[]==x[] A[] x[])+x[]);(x)[]=(gD);;;;; I,OD;gD=(); gD> gD~= OD=;; x[] x[]=-+(gD-A[]+A[]-x[]>x[] x[] x[]);x[]=+((A[]-x[]<A[] gD x[])-A[]+x[]);gD=(-+((x[]-x[]-x[]<x[] x[] x[])+x[]));(x)[]=(gD); gD=x[];;; I=((N){[q]=(k,X) i,c,o,B,Q,H=N,,X,,(); Q> i>O o> pD,S; L=,, L< pD=(i%); (L>) S=(o%);;;;B=B+C[pD][S]*c; L=,, (L<) L> c=c*Z; L> L< o=((o-S)/);;; i=((i-pD)/);;;;Q=; Q< H=B+(i+o)*c;(k)[X]=H;;;; ; Z=,, Z< C[X][N]=H; (Z>) H;;;;};); x[] x[]=-+((A[]-A[]==A[] A[] x[])+x[]+x[]);(x)[]=(+((x[]+A[]-x[]==x[] A[] A[])-A[]));gD=(-+(((x[]<=x[] x[] A[])~=A[] x[] x[])-x[]+A[]));(x)[]=gD; gD=(x[]);;; ;C=({[]={[]=O,,,vD,,,,n,,,,,,,MD,},{[O]=,,,l,,,,KD,SD,f,,,,,,},{[]=,vD,,fD,,n,P,,,,,SD,,,,},{[]=,,,,,,,,,,,,,,a,},{[]=,,KD,n,,,,,,,,z,,,,},{[]=,,n,,fD,,,,,,,,,,,},{[]=,,P,,,,,,,,,,,,,},{[]=,,,,,,,O,,MD,,,,,,},{[]=f,,j,,p,,,,,fD,,,,h,,},{[]=,,,,,,z,,fD,,vD,l,,,,},{[]=,R,,,,,,,,,,,,,,},{[]=,,,f,,MD,,,vD,,,,n,,,},{[]=p,,MD,,,,,,,,,,O,,,},{[]=,,,,,f,,,,,n,,,O,vD,},{[O]=,,,,j,,,,,,,,,,,},{[O]=,,a,,R,j,,,,,,,,,,}},{[q]=(Z,S) p,P=; p> p=;P=({[]=S,[S]=O},(S));Z[S]=(P); P;; ;});R=();gD=(); gD== R=(K K[b]); x[] gD=(-+(((x[]>=x[] A[] x[])+x[]==A[] A[] A[])+x[]));(x)[]=gD; gD=(x[]);; gD~= Z=O, (C[Z],(Z));;;;; ; p=; I=K K[LD]; L,j;z=(); S,f;zD=();gD=; gD~= gD~= gD== z=((Z)W=(Z);r=();); ( x[]) gD=(x[]);(x)[]=(-+((x[]-x[]<x[] x[] x[])+A[]-x[]));x[]=-+((x[]>x[] x[] x[])+x[]+x[]-x[]);gD=+(x[]-x[]+x[]-x[]+x[]);(x)[]=gD;; gD== S=; ( x[]) gD=x[]; gD=(-+(A[]-x[]-x[]+x[]-A[]));x[]=gD;; gD~= gD~= zD=(...)(...)[...];;;; f=R (Z,P) C[Z%u][P%u];; x[] gD=(-+(x[]+A[]-x[]+x[]-x[]));x[]=(gD); gD=x[];;;; j=; x[] x[]=(-+(x[]-x[]+x[]+gD+x[]));gD=-+(x[]-x[]-A[]-x[]<=x[] x[] x[]);(x)[]=(gD); gD=(x[]);;; L=K K[T]; x[] gD=+(((x[]<x[] x[] x[])+x[]<=x[] x[] x[])-A[]);(x)[]=(gD); gD=(x[]);;;; q;gD=; gD> I=(I (Z,P) (P>=) ;; P< (Z,-P);;(Z*F[P])%u;); x[] gD=(-+((gD-x[]~=x[] A[] A[])-A[]+x[]));(x)[]=gD; gD=x[];; (gD<) q=(w);L=(L (P,L) K; Z=,, Z== L>= ;; (L<) (P,-L);; Z== K=(P%u/F[L]);;;; K-K%;);;;; ; H,LD;gD=; gD== H=(P,Z,I) K=(P/F[Z])%F[I];K=K-K%; K;; ( x[]) gD=(x[]); gD=+(x[]-A[]+x[]+x[]+x[]);x[]=gD;; gD== LD=(() P,Z=; P== P=();Z=(W,r,r); P== r=r+;P=(); P== Z;;;;);;;;; iD,P,I,v,n=(() K,Z,C,L; i=,, i< K,Z,C,L=(W,r,r+); i> i< r=r+; (i>) L*+C*+Z*+K;;;;);gD=; gD<= P=(() L,K=(),(); Z=,, Z== K*u+L; Z== K== L; K>=YD K=(K-u);;;;;;);I=() i,Z,K=(),(()); L=,, L~= (i== Z==) ;;; K=;;; L,B,C=Z*+(i,,),(i,,G),((-)^(i,,)); B== L== C*; Z=,, (Z<) K=();; B=(fD);;;; B==g L== C*(O/O); C*(/);;;; C*(^(B-))*(L/(^)+K);;v=(() Z,K=,(); g=(W,r,r);K=K+((g> g- g)*Z);Z=Z*;r=r+; g<; K;); x[] gD=-+((x[]-x[]+x[]==x[] A[] A[])+x[]);x[]=gD; gD=(x[]);; n=(() g=(); Z=,, Z> g; Z< (g>=p) g-S;;;;;);;; ; Q,a,H,ED=(() S; Z=,, Z== r=(r+S);; Z== S=();;;; (W,r-S,r-););R=;gD=; gD> H=((S,N) K,CD=S[],(S[]); r,dD,g,AD,pD,b,KD,i=S[],S[],S[],S[],S[],S[],S[];i=(...) G,X,Z,B,o,p,c=(K),,,; L,SD=(...); xD,W,MD,k=,(()); u,h,C,y=(() YD=dD[Z]; YD>= YD< (YD>=) YD>= (YD>=) YD>= YD~= (G)[AD[Z]]=_[r[Z]];; X=pD[Z];G[X]();X=X-;; (YD>=) G[AD[Z]]=S; YD~= S=N[AD[Z]];S[][S[]]=G[r[Z]];(G)[r[Z]]=G[pD[Z]]+KD[Z];;;; (YD>=) YD< K=k; K O,S t,K (O>=) (S)[]=S;S[]=(G[O]);S[]=;K[O]=;;;; ; ,AD[Z],X; YD== (G)[AD[Z]]=((G[r[Z]],G[pD[Z]])); G[pD[Z]]=(G[AD[Z]]+G[r[Z]]);;; YD>= YD== (G)[r[Z]]=N[AD[Z]][G[pD[Z]]];(G)[pD[Z]]=G[AD[Z]]-G[r[Z]];; G[AD[Z]]=(G[r[Z]]>=G[pD[Z]]);;;; (YD>=) (YD<) YD>= YD~= S=N[r[Z]];(G)[AD[Z]]=S[][S[]]; S=pD[Z];G[S]=G[S](G[S+],G[S+]);X=S;; MD=({[]=MD,[]=p,[]=c,[]=o});X=r[Z];p=(G[X]);o=G[X+];c=(G[X+]);Z=pD[Z];; YD>= YD== S=pD[Z];(G)[S]=G[S]((G,S+,X));X=(S); G[r[Z]]=r;; f=(b[Z]); F=f[]; K=#F; O=(K> {}); j=(f,O);(j,W);(G)[AD[Z]]=(j); (O) S=,K j=F[S];f=j[]; K=(j[]); f== k k={};; F=k[K]; F F={[]=G,[]=K};k[K]=F;;O[S-]=(F); f~= O[S-]=(N[K]);(O)[S-]=(G[K]);;;;;; (YD<) (YD>=) G[AD[Z]]=(G[r[Z]]*b[Z]); YD== ((G[pD[Z]]<=G[AD[Z]])) Z=r[Z];; O,S=AD[Z],(r[Z]); f=(G[O]); K=,X-O (f)[S+K]=G[O+K];;;; (YD>=) G[r[Z]][G[AD[Z]]]=b[Z]; YD~= S=k; S K,O t,S K>= (O)[]=(O);O[]=G[K];O[]=();S[K]=();;;; ; S=AD[Z]; ,S,S;(G)[pD[Z]]=(G[AD[Z]]%g[Z]);;;;;; (YD<) YD>= YD< (YD<) YD== S=,AD[Z](G)[S]=SD[S];; G[pD[Z]]=N[r[Z]][KD[Z]];; K=k; K O,S t,K O>= (S)[]=(S);(S)[]=G[O];S[]=();(K)[O]=();;;; ; ,r[Z],;; (YD<) YD~= G[AD[Z]]=pD; G[pD[Z]]~=g[Z] Z=(AD[Z]);;; YD~= K=k; (K) S,O t,K S>= O[]=O;(O)[]=(G[S]);(O)[]=;(K)[S]=();;;; ; ,AD[Z],; ( G[pD[Z]]) Z=AD[Z];;;;; (YD<) (YD<) YD== S=(AD[Z]);G[S](G[S+]);X=(S-); G[AD[Z]]=(G[r[Z]][G[pD[Z]]]);; G[pD[Z]]=AD;; YD>= YD== (G)[pD[Z]]=dD;(G)[pD[Z]]={};;(G)[r[Z]]=G[AD[Z]]~=G[pD[Z]];;;; (YD>=) (YD<) (YD>=) S=(pD[Z]);X=(S+r[Z]-);(G)[S]=G[S]((G,S+,X));X=(S); YD~= S=N[pD[Z]];S[][S[]][G[r[Z]]]=(G[AD[Z]]); O=(r[Z]); K,S=(o,c); K G[O+]=(K);G[O+]=S;Z=pD[Z];c=K;;;; YD< S=AD[Z];G[S](G[S+],G[S+]);X=S-; YD== (G[AD[Z]]<G[r[Z]]) Z=(pD[Z]);; G[r[Z]]=(KD[Z]^G[pD[Z]]);;;; YD>= (YD<) YD~= S=(N[pD[Z]]);G[AD[Z]]=(S[][S[]][G[r[Z]]]); X=r[Z];G[X]=G[X]();;(G[r[Z]])[b[Z]]=(KD[Z]);; (YD>=) S=(pD[Z]);G[S]((G,S+,X));X=(S-); YD~= G[AD[Z]]==g[Z] Z=pD[Z];;(G)[AD[Z]]=(r[Z]);;;;;;; YD>= YD< (YD>=) (YD<) YD< G[pD[Z]]=G[AD[Z]]==G[r[Z]]; YD== G[r[Z]]=(G[pD[Z]]/KD[Z]); G[AD[Z]]=(G[pD[Z]]-g[Z]);;; (YD>=)(G)[AD[Z]]=; YD== (G[pD[Z]]) Z=AD[Z];; O,K,S,f,F=dD[Z],,-; K== f=(f*F);; f=;F=;K=+(YD-YD+YD-YD+K);;;F=(YD);F=F-O;O=(dD[Z]);F=F~=O; F F=dD[Z];;K=; K== ( F) F=(YD);;K=(+((K+YD~=YD YD YD)-K+K)); K== O=(dD[Z]);F=(F+O);K=(-+((K+YD+K<K K K)~=K K YD)); K== O=(YD);K=+(K-K+K+K==YD K K); K== F=F-O;O=(dD[Z]);F=(F+O);K=-+((YD+YD>=YD YD K)+K-YD); K== O=dD[Z];K=+((K+K-YD<=K K K)+K); K~= F=(F-O);;;;O=(dD[Z]);K=; K== F=(F+O);K=(+(YD-YD+YD+K+K)); K== O=dD[Z];;;;F=(F+O);K=; K== f=f+F;S=S+f;K=+((((YD~=K K YD)>=K YD YD)<=YD YD YD)-K); K~= dD[Z]=S;;;;S=G;f=pD[Z];K=; K> K< F=N;K=(-+((K-K-YD>YD YD K)-YD)); K< O=AD[Z];K=(+((K==K YD K)+YD-K+K)); K> F=F[O];(S)[f]=F;;;;;;; YD>= (YD>=) MD={[]=MD,[]=p,[]=c,[]=o}; S=(pD[Z]);c=(G[S+]+);o=(G[S+]+);p=(G[S]-c);Z=r[Z]; YD== O,F=AD[Z],pD[Z]; F~= X=(O+F-);; K,S,f=r[Z]; F~= S,f=(G[O]((G,O+,X))); S,f=(G[O]());; K== X=O-; K~= S=O+K-;X=S+; S=S+O-;X=S;;F=; K=O,S F=F+;(G)[K]=(f[F]);;;(N[AD[Z]])[G[pD[Z]]]=(G[r[Z]]);;; YD>= YD~= K=(k); (K) O,S t,K O>= S[]=S;(S)[]=(G[O]);(S)[]=();K[O]=();;;; ;;(G)[AD[Z]]=b[Z];; (b[Z]<G[r[Z]]) Z=AD[Z];;;;; YD< (YD>=) (YD<) YD== Z=(pD[Z]);(G)[pD[Z]]=W[KD[Z]];;(G)[AD[Z]]=(G[r[Z]]..G[pD[Z]]);; YD>= YD== G[r[Z]]=SD[xD];(G)[r[Z]]=G[pD[Z]]<=G[AD[Z]];; G[r[Z]]~=G[AD[Z]] Z=(pD[Z]);;;; (YD>=) YD< (G)[AD[Z]]=(G[pD[Z]][g[Z]]); YD~= (G)[AD[Z]]=(G[r[Z]]); p=MD[];o=MD[];c=(MD[]);MD=(MD[]);;; YD< S=AD[Z],pD[Z](G)[S]=();; YD~= S=(pD[Z]);X=S+r[Z]-;(G[S])((G,S+,X));X=S-;(G)[pD[Z]]=G[AD[Z]]/G[r[Z]];;;;;; YD>= YD< YD>= YD< K,g=AD[Z],pD[Z];X=K+g-; f=(k); (f) S,O t,f S>= O[]=(O);O[]=G[S];(O)[]=();f[S]=;;;; ; ,K,g; YD~= (G)[r[Z]]=(G[pD[Z]]^G[AD[Z]]); K=(k); (K) g,S t,K (g>=) (S)[]=(S);(S)[]=G[g];(S)[]=();K[g]=();;;; ; S=pD[Z]; ,S,S+r[Z]-;;; YD>= YD== S=;p=(p+c); c<= S=p>=o; S=p<=o;; (S) (G)[r[Z]+]=p;Z=(AD[Z]);;(G)[r[Z]]=(G[pD[Z]]==KD[Z]);; p,K,S,g=; p== K=();S=;p=(-+((YD==YD p YD)+YD+p+p)); p== g=;p=(+(YD-YD-YD+p~=YD YD YD)); p~= S=S*g;;;;;g=dD[Z]; O=dD[Z];p=; p== g=g-O;O=YD;p=-+((YD-p>=p YD YD)+YD+p); p~= g=g+O;;;;O=dD[Z];g=(g+O);p=; p> O=YD;p=+(YD+YD-p+p-YD); g=g+O;;;;O=(dD[Z]);g=g>=O; (g) g=(dD[Z]);; g g=(YD);;p=; p> p< (g) g=dD[Z];;; p> O=YD;p=-+(p+p+YD+p-p); p< g=g>O;p=+(YD-YD-p+YD-YD);;; g g=(YD);;p=; (p>) p~= O=(dD[Z]);p=(+(YD+YD-p+YD+p)); g=(g>O);p=+((p+YD+YD>=YD p p)-YD);; (p<=) p< O=(YD);; g g=(dD[Z]);;p=-+(p+p-YD-YD-p);; g g=(dD[Z]);;p=(-+((YD-YD~=YD p p)+p+YD));;;;p=(); p> p< g=(g+O);p=+(((YD~=p YD YD)+p>=p p YD)+YD); p< K=K+S;p=+(YD-YD+YD+p+p); (p>) (p> p<) (dD)[Z]=K;;; S=(S+g);p=+((YD+p+p<YD p YD)-YD);;;K=(G);p=(); p> S=r[Z];p=(+(((p>=p p p)~=YD p p)+p==YD p YD)); p> p< (K)[S]=g;; (p<) g=(r);p=+(((p<=YD p YD)-p<p p p)+YD);;;;;; (YD>=) (YD>=) G[AD[Z]]=G[pD[Z]]*G[r[Z]]; YD== S=pD[Z];G[S]=G[S](G[S+]);X=S;(G)[r[Z]]=-G[AD[Z]];;; YD< S,f,p,W,g=(); S< f=(AD[Z]);S=+(S+YD+S+S+S); S> p=;;;; O=;S=(); S== g=;S=-+((S-S~=YD S YD)-S~=S S YD); S== O=(O*g);;;;g=YD;S=(); (S>) S< g=(g>=W); (g) g=YD;;;; W=YD;S=(S+YD+S>=S S S)-S;;;S=(); S== ( g) g=dD[Z];;S=+((S>YD YD S)+YD+YD-S); S~= W=YD;g=g==W;;;; g g=YD;;S=(); S== g g=dD[Z];;S=+(YD-S-YD-S-YD); S== W=YD;S=(+(YD-S-S+YD+YD)); S~= S~= g g=YD;;;; g=(g~=W);S=+(YD-S-YD-S==S S S);;;;S=(); S< W=dD[Z];; S> S< g=g+W;S=(-+((YD<=S S S)-S+S+YD)); (S>) S< S> g g=YD;;S=-+(S+YD+S+S-S); S> S< W=(YD);S=(+((YD>=S YD S)+YD+S==S YD S)); (S< S>) g=(g-W);S=+((S>YD YD YD)-YD+YD<=YD YD YD);; W=YD;S=(-+(((YD~=YD YD YD)+YD<S S YD)+S));;;;g=(g-W);S=(); S== W=(dD[Z]);S=+(S-S-S+YD+YD); S~= g=g-W;;;;;W=dD[Z];S=; S< O=(O+g);; (S>) g=(g-W);S=(-+(S+YD-YD-YD>=YD S S));;;p=p+O;S=(); S== (dD)[Z]=(p);S=(-+(YD-YD+S-YD+S)); S~= p=(G);;;;O=r[Z]; K=(b[Z]);S=; S> S< W=;S=(+(((S>=YD S S)+YD==YD YD YD)-YD)); S> S< p=(p[O]);S=+(YD-YD-S-S-S); S< O=(G);S=+(S+S+S+YD>YD S S); S> S< g=g+W;S=(+(YD+S-S+S>YD YD S)); S< S> W=p;; S> g=f;S=(+((S>YD YD S)+YD-YD-YD));;;O[g]=(W);S=; (S>) (S<) O=(G);S=(+((S-S-S<=S S YD)>YD S YD));; g=f;W=(p);;;;W=W[K];(O)[g]=W; YD~= (G)[r[Z]]=#G[pD[Z]];(G)[r[Z]]=G;;;;; YD< (YD<) YD>= YD== G[pD[Z]]=N[AD[Z]]; G[AD[Z]]= G[pD[Z]];; G[r[Z]]==G[AD[Z]] Z=pD[Z];;; (YD<) YD== (G[pD[Z]])[G[AD[Z]]]=(G[r[Z]]);(G[AD[Z]])[b[Z]]=(G[r[Z]]);; f,O,p,S=(); f<= p=;S=S*p;p=(pD[Z]);; f< S=;f=(-+(r[Z]+f+YD+f-r[Z])); O=();f=(+(YD-YD-f+pD[Z]+f));;;; K=dD[Z];p=p+K;f=; f< K=(YD);f=+((f-YD==f f YD)-pD[Z]-pD[Z]); f> p=(p~=K);;;; p p=YD;; g;f=(); f> ( p) p=pD[Z];;f=(+((YD==pD[Z] f f)-f-f>r[Z] pD[Z] YD)); f< f> K=(dD[Z]);f=(+(pD[Z]-r[Z]-f+r[Z]+pD[Z])); f> f< p p=(pD[Z]);;; f< f> K=(YD);p=(p+K);f=(+(f-YD+f-r[Z]+f)); f< p=(p==K);f=(+((f~=r[Z] f r[Z])-f+f+YD));;;f=; f< ( p) p=r[Z];;f=-+(((pD[Z]<r[Z] r[Z] YD)-r[Z]==f f f)+f); K=(r[Z]);;;;p=p+K;K=pD[Z];f=(); f== p=(p+K);f=(+(f+f-f+r[Z]+f)); f== K=YD;;;;p=(p+K);K=r[Z];f=; f> dD[Z]=O;f=-+(f+f-YD-f+pD[Z]); f< p=p-K;f=(+((((pD[Z]<r[Z] f f)>YD f f)<=f f f)+f)); f> f< O=O+S;f=+(r[Z]+f+r[Z]+YD-r[Z]); f< f> O=G;S=r[Z];; (f< f>) S=S+p;f=(-+(f-r[Z]+f-f<pD[Z] f f));;;f=; f== p=N;f=+(YD-pD[Z]+YD-f~=pD[Z] f f); f~= K=AD[Z];p=p[K];K=G;;;;f=; f< K=K[g];f=+(f+f+pD[Z]-YD~=f f pD[Z]); (f> f<) (f>) g=pD[Z];f=(-+((((f<=f f YD)<=f f YD)>=f f pD[Z])+YD));; p=p[K];;;;;(O)[S]=p;;; (YD>=) (YD<) YD~= G[r[Z]]=b[Z]+G[AD[Z]]; _[r[Z]]=G[AD[Z]];;(G)[pD[Z]]=G[AD[Z]]%G[r[Z]];; YD>= YD~= B=AD[Z]; S=,B G[S]=SD[S];;xD=B+; K,p=AD[Z],(L-B-); (p<) p=-;; g=; S=K,K+p G[S]=(SD[xD+g]);g=g+;;X=(K+p);; g,S=AD[Z],G[r[Z]];G[g+]=S;G[g]=S[b[Z]];;;;;;;Z=Z+; ;); u h y~= G[C]((G,C+,X)); G[C]();; C (G,C,y);;; S=k; S g,K t,S g>= K[]=(K);K[]=G[g];(K)[]=;(S)[g]=;;;; ; (h)== ((h,))(Y)(h,);(Y)(..(CD[Z])....(h),);; (h,);;;; i;);ED=(() g,j,f,S,L=(); g<= (g<) S=(j);g=();(f)[]=S; g=;j=();; (g>) g=;f={,,w,w,,,w,,w,,w}; (g<=) L=;; Z=,j p=(); OD[p](S)[Z]=(OD[p]); K=p/; Y={[]=p%,[V]=K-K%};OD[p]=(Y);S[Z]=Y;;;g=();;;; ;f[d]=();S=;j=(); C; Z=,, Z<= S=(()-); (Z>) j=(S); C=(S);;;;; p,G,Y,b; Z=,, Z> (Z>) G=(S); Y=(S);b=(S);;; p=(S);;; W,X; Z=,, Z> X=({}); Z> Z< f[]=j; Z< W=(S); Z> Z< f[]=G;;;; Z=,, Z<= Z~= (f)[]=C; f[]=(b);; Z~= (f)[]=(W); f[]=Y;;;;;f[]=(p);g=(); (g>) d=,() d=; K,Z=; K== d=();K=(); K== K=;Z=(d/); K~= d%== X[L]=Z-Z%; K,d=(); K== K=();L=(); K== K=;d=(); K~= K=Z-Z%,L (X)[K]=(d);;;;;;;;;;;L=(L+);;(f)[]=(); f; (g<) d=,S B,K,N,i,F,S; Z=,, (Z>) Z>= K=(); B=();; (Z<=) Z>= S=F%;; i=(B%);F=();; N=();;; L=(F-S)/;F=N%m; O=((N-F)/);N=((B-i)/);(Y)[d]=O;B=(); (B> B<) B< B=;b[d]=L; (B> B<) B> F== q m,y; Z=,, (Z>) (Z<) m=s[O];; y=#m;;;;(m)[y+]=(f);m[y+l]=(d);(m)[y+]=();(C)[d]=(s[O]);; F==V Y[d]=(O); F== Z,Y=; Z> (M)[Y+]=O;; Z> Z< (M)[Y+]=(C);Z=(); Z< (M)[Y+]=(d);Z=; Z< Z> Z=;Y=(#M);;;; ;;;;;; S== (q)(G)[d]=(s[L]); Z,C; Y=,, Y<= Z=(s[L]); Y> Z[C+]=f;; C=(#Z);;;;(Z)[C+]=d;Z[C+]=;; S==V (b)[d]=L; S== S=#M;M[S+fD]=(G); Z=,, Z< (M)[S+]=(d);(M)[S+]=(L);;;;;B=; i== q S,L,Z=(); S== L=(s[N]);S=; S== Z=#L;S=;L[Z+fD]=(f); S== (L)[Z+]=d;;;; ;(L)[Z+]=; j[d]=s[N];; i== W[d]=N; i== S,Z=(); S< S> S=();(M)[Z+]=d; S> S< S=();Z=#M; (S<) S> M[Z+]=(N);;; S=();(M)[Z+]=j;;;;;;;;;;(W)[d]=N;p[d]=K;B=();; ;;g=(); f[]=(X);g=();;; ;); x[] gD=(-+(x[]+x[]+A[]+x[]>x[] x[] x[]));(x)[]=(gD); gD=(x[]);; gD< gD> a=(...) S,Z=(); S~= S~= S~= Z,{...};; Z~= Z,E;;S=();; Z=(,...);S=();;;; x[] gD=(+(x[]-gD-A[]-x[]+x[]));(x)[]=(gD); gD=(x[]);; (gD<) R=() Z,S=(); Z~= Z== S=()-;s=(S);;; OD=({});Z=();;; g,K;Z=; Z<= Z== Z=();g=(()~=); K=()-;;; (Z<) L=,S d,p=(w); E=,, E== (g) s[L]=d;(s)[L]=({[]=d});;; E== p=(); p<= p~= d=(()==); d=();; p> d=(); d=();;;;;;Z=; Z=();q=(g);;; ;S=(K); Z=,, Z== M=(K*vD); P=,K S[P]=();; Z== P=,#M,vD M[P][M[P+]]=(S[M[P+]]);; Z== g Z=,, (Z>)(_)[]=s; _[]=(S);;;;;;;;K=(S[()]); Z=,, Z== M=(w);OD=w; Z~= s=(w);;;; K;;;;;;D=((...)(...)(););T=();gD=(); gD~= T=(); ( x[]) gD=(x[]);(x)[]=+((((x[]~=x[] x[] x[])<x[] x[] x[])>=x[] x[] x[])-x[]);(x)[]=(+(x[]-x[]-A[]+x[]-x[]));gD=-+((x[]-x[]+A[]>x[] x[] A[])+x[]);x[]=gD;; T=(T,e)(R,U,zD,D,I,LD,iD,A,z,H);;;; (T,e);)(,,,,,,,.match,,,,,,{j=bit32,U=,k=.sub},,,,,setfenv,,,,getfenv,,,,,,,,,,,,,,,,,,(...)(...)[...]=();,{},{,,,,,,,,})(...);Obfuscated. The code is scrambled, so you can't read what it does. Common for key systems, but take care.
return(function(h,Z,T,C,j,e,SD,qD,S,sD,PD,s,p,zD,z,fD,K,LD,HD,d,b,ZD,y,l,f,P,R,V,a,G,t,KD,O,q,n,vD,w,m,g,MD,U,x,A)x={};local gD,D=(22);while true do if gD<0X007D then if not(not x[3873])then gD=(x[3873]);else gD=(0x07395cD9+((A[3]==A[3]and A[6]or A[0X009])-A[7]-A[0X9]+A[7]));(x)[0xF21]=(gD);end;else D=(e.char);break;end;end;gD=(0x54);while true do if gD<84 then break;else if gD>35 then if not(not x[24076])then gD=(x[0X5E0C]);else(x)[0X1fb]=-2322863951+(A[7]-A[6]-x[3873]+A[8]-gD);(x)[3870]=-0X6869C6bE+(A[5]+A[0x2]-A[6]-A[8]-A[0X04]);gD=-0X20c496E7+(A[9]+A[0X2]-A[0x4]+gD+A[0X8]);(x)[0X5E0c]=(gD);end;end;end;end;local H,ED;gD=0x7;while true do if gD==58 then ED=(e.byte);break;else H=(e.gsub);if not x[0x2Be5]then x[27648]=-0X122fF280+((x[0Xf21]>=A[0X7]and A[0X6]or x[507])+A[0X1]+A[0X006]+x[0X1FB]);(x)[0X6f5F]=(-11823347021+((A[2]>=x[0X1fB]and A[2]or x[0X1FB])-x[3873]+A[2]+A[4]));gD=-6856132883+(x[0X1fb]+x[24076]+A[0X4]-gD+A[0x5]);x[0X2Be5]=(gD);else gD=(x[0X2Be5]);end;end;end;local F,v;gD=0X2;repeat if gD==2 then F={[0]=1,0X2,4,8,0X10,0X20,64,K,256,S,0X400,2048,0x1000,0x2000,0X4000,32768,0x10000,131072,0X040000,0X80000,0X100000,0X200000,0X0400000,0X800000,16777216,33554432,67108864,134