Op Script

 ((...) E={;;;;,;,;,;,;,,,;;,,,,,;,,,,;;;;,;,,;,,;,;;,;,,;,;,;;;,;;;,;,,,;;;,,;,;,,;;;,;;;;,,;;;,,,;,;;;,,,,;;;;,;;;;,;;;,;,;,;,;;;;,,,;;,,,,} q,s  ({{+-;-+};{--(-),--(-)};{-+;-+}})  s[-+]<s[--(-)] E[s[--(-)]],E[s[--(-)]],s[-+],s[-]=E[s[-]],E[s[+-]],s[-]+(+-),s[+-]-(-+)    (q) E[q+(-+)]   q=.floor  s=.insert  d=.len  x=E  Z=.char  G={[]=--(-);F=-+,f=-;v=+-;b=-+;c=--(-);M=+-,g=-,E=-+,S=--(-),x=--(-);i=+-,m=+-,U=-+,y=+-;o=-+,Q=--(-);R=-,[]=-+;t=-+,X=+-,L=+-;P=-,e=-;G=--(-),w=-+;C=-+,D=--(-),K=+-;u=-+;A=--(-),[]=--(-),H=-;[]=+-;[]=-+;[]=--(-);z=-;B=-+,d=-;I=-,Y=--(-),s=-+;V=-;a=+-;[]=+-;[]=--(-),J=-,N=+-;O=-,[]=--(-);W=-+;T=+-;r=+-,[]=--(-),h=-;Z=-;l=-+,q=-;j=--(-);p=-+;[]=-+,n=+-,k=-+,[]=+-} F=.concat  l=  A=.sub  E=--(-),#x,-   u=x[E] (u)==  l=(u) t={} W=-+  z=--(-) C=--(-) W<=l   E=(u,W,W) d=G[E] d  z=z+d*(-+)^((--(-))-C)C=C+(-) C==--(-) C=-  E=(z/(+-)) d=((z%(+-))/(--(-))) x=z%(+-)(t,(E,d,x))z=--(-)  E== (t,((z/(-+)))) W>=l  (u,W+(-),W+(-+))~= (t,(((z%(-))/(+-))))   W=W+(-+) x[E]=(t)   ((E,d,x,Z,G,F,l,u,W,g,t,s,c,C,Q,m,v,R,z,A,T)u,T,R,s,c,v,g,m,W,t,Q,C,z,A={},(E)u[E]=u[E]-(--(-)) u[E]==-+  u[E],A[E]=,  ,(E,q) d=(q) x=() (E,{},q,d)  x ,(s,x,Z,G) U,i,w,c,V,N,j,l,n,e,u,f,D,B,L,I,z,S,H,M,W,h,k,y,Y,qk,o,P,O,C,p,Ek,a,b,X,K,J,r  s   s<-   s<-+   s<+   s<-(-)  s<+-   s<-   s<-(-) K=--(-)M=(--(-))c=-+ s={}A[Z[-]]=s l=A[Z[+-]]C=l l=W%c A[Z[--(-)]]=l r=W%K K=- c=r+K A[Z[-+]]=c K=E[M]s=-(-)M=(+-)r=K[M]K=(u)r=(-)X=K z[W]=r r=--(-)L=- e=L L=-+ M=-+ J=e<L L=M-e  j=#b s=-(-)U=--(-)a=(U,j)U=(b,a)j=A[J]a= k=--(-)H=U-k h=(H)j[U]=h U=   l=- W=x[--(-)]u=x[-+]z=#u C=z s=+ z=- c=z z=--(-)r=c<z z=l-c    s<+   s<-  s=A[Z[-+]]W=A[Z[+-]]u[s]=W s=A[Z[+-]]W={(u)}l={(W)}s=E[(+-)] a= J= r= b= e= c=(c)K=(K)W=(W)W= M= z=(z)C=(C)L=(L)X=(X)z= C=()A[C]=W r=(-+)U=(U)W=()K=(-)A[W]=z M=(+-)c=E[r]X=(+-)r=(-+)z=c[r]c=()A[c]=z r=E[K]K=(--(-))U=+- z=r[K]s=- L=()K=E[M]M=(-)a=- j=U b={}r=K[M]M=E[X]e={}X=(--(-))K=M[X]M=+- X=()A[X]=M M=-+ A[L]=M M={}J=()A[J]=e U=-+ h=U e=- U=+- H=h<U U=a-h   s= s=s  -(-)-+     s<+   s<-(-)  s<-+  u=A[Z[--(-)]]l=#u u=--(-)s=l==u s=s  -(-) -  z=- W=A[Z[-]]u=W*z W=+ l=u+W u=+ s=l%u W=-+ A[Z[-]]=s u=A[Z[-]]l=u~=W s=+   s= s=-+    s<-(-) W=(-)l=- z=-+ u=W^z s=l-u l=(-)u=s s=l/u l={s}s=E[(-+)] a={}r= e= U=()M= j=(+,{U;X,L;c})H=(-)Y=(--(-))A[U]=a P=(+-)a=()h=()D= A[a]=j k={}j={}A[h]=j j=E[H]n=A[h]f={[Y]=n;[P]=D}H=(k,f)c=(c)j=(-(-),{h;U;J,X,L;a})X=(X)z= U=(U)K= L=(L)r=(-+)A[W]=H b= h=(h)a=(a)e=(--(-))K=- b=(-)U=- J=(J)z=(-(-),{W,C})n=+ A[C]=j c=E[r]r=(K)r=(-)J=+ c=E[r]r=(-+)M=A[W]X=A[C]L=(e,J)J=-+ K=M[L]r=c[r]a=-+ e=(-+)r=(c,K)M=A[W]k=- X=A[C]L=(e,J)K=M[L]L=A[W]e=A[C]J=(b,a)X=L[J]a=(-)e=A[W]J=A[C]h=-+ b=(a,U)U=(-+)L=e[b]c=(+-)J=A[W]b=A[C]o=-+ c=r[c]j=+ a=(U,j)e=J[a]j=(-+)b=A[W]a=A[C]U=(j,h)h=(-+)J=b[U]a=A[W]U=A[C]j=(h,k)b=a[j]a=-+ M={[X]=L;[e]=J;[b]=a}c=(r,K,M)r=(-)K=+- J=-(-)c=E[r]e=(+-)r=(K)a=-(-)K=(+-)r=E[K]M=A[W]X=A[C]L=(e,J)K=M[L]c=r[K]M=A[W]e=(-)J=- X=A[C]L=(e,J)b=- j=-+ K=M[L]w=+ r=(K)M=(-)K=E[M]X=A[W]L=A[C]J=(-)e=(J,b)M=X[e]c=K[M]U=(-)b=+ J=(--(-))X=A[W]L=A[C]e=(J,b)b=(+-)M=X[e]K=(M)X=(--(-))M=E[X]L=A[W]e=A[C]J=(b,a)b=(-+)X=L[J]a=-(-)c=M[X]L=A[W]e=A[C]J=(b,a)X=L[J]M=(X)X=A[W]J=(-+)b=-(-)L=A[C]e=(J,b)c=X[e]f=-+ e=(-+)L=E[e]J=A[W]b=A[C]a=(U,j)e=J[a]X=L[e]b=- J=(-+)r[c]=X s=-(-)a=- X=A[W]L=A[C]e=(J,b)c=X[e]h=-+ L=A[W]b=(--(-))e=A[C]J=(b,a)U=(-)X=L[J]b=-(-)J=(+-)r[c]=X X=A[W]L=A[C]e=(J,b)b=-(-)j=- J=(+-)Ek=-(-)c=X[e]X=r K[c]=X X=A[W]L=A[C]e=(J,b)c=X[e]e=(+-)L=E[e]J=A[W]b=A[C]a=(U,j)y=- b=-+ U=(+-)e=J[a]J=-+ X=L[e]j=-+ e=+- L=(e,J,b)b=- K[c]=L X=A[W]L=A[C]J=(-)e=(J,b)c=X[e]J=(+-)X=+- K[c]=X X=A[W]Y=- b=- L=A[C]e=(J,b)c=X[e]e=(+-)L=E[e]J=A[W]b=A[C]a=(U,j)b=- e=J[a]J=+- X=L[e]e=- a=- L=(e,J,b,a)K[c]=L X=A[W]b=-+ J=(-+)j=(-)L=A[C]e=(J,b)J=(+-)c=X[e]e=E[J]b=A[W]a=A[C]U=(j,h)J=b[U]qk=-+ U=(-+)j=-+ L=e[J]J=A[W]b=A[C]a=(U,j)e=J[a]J=(+-)j=+ X=L[e]K[c]=X X=A[W]L=A[C]b=- e=(J,b)c=X[e]e=(--(-))U=(-)L=E[e]J=A[W]b=A[C]a=(U,j)e=J[a]X=L[e]b=- e=--(-)a=-+ J=-+ L=(e,J,b)K[c]=L X=A[W]b=-(-)J=(--(-))L=A[C]j=(-)e=(J,b)c=X[e]X=-+ K[c]=X X=A[W]L=A[C]J=(-)b=-+ e=(J,b)c=X[e]L=A[W]e=A[C]h=- b=(--(-))J=(b,a)X=L[J]b=-(-)K[c]=X J=(+-)X=A[W]L=A[C]e=(J,b)c=X[e]J=(-)e=E[J]b=A[W]a=A[C]U=(j,h)J=b[U]L=e[J]U=(-)J=A[W]b=A[C]j=-+ a=(U,j)e=J[a]X=L[e]h=-(-)b=-(-)j=(-+)K[c]=X X=A[W]J=(+-)L=A[C]e=(J,b)J=(+-)c=X[e]e=E[J]b=A[W]a=A[C]U=(j,h)J=b[U]L=e[J]J=A[W]U=(+-)j=+ V=+ b=A[C]a=(U,j)b=- e=J[a]X=L[e]K[c]=X J=(--(-))X=A[W]L=A[C]e=(J,b)c=X[e]X=r J=(+-)M[c]=X a=-+ b=-(-)X=A[W]D=-+ U=- L=A[C]e=(J,b)b=(--(-))c=X[e]S=+ L=A[W]e=A[C]k=+ J=(b,a)X=L[J]M[c]=X X=A[W]b=-+ L=A[C]J=(--(-))e=(J,b)c=X[e]J=(-)X=--(-)M[c]=X P=-(-)b=-+ X=A[W]L=A[C]e=(J,b)c=X[e]X= M[c]=X a=-+ c=(-)c=M[c]b=(-+)h=- c=(M)L=A[W]e=A[C]J=(b,a)X=L[J]e=A[W]J=A[C]a=(+-)j=-(-)b=(a,U)U=(-+)L=e[b]J=A[W]b=A[C]a=(U,j)e=J[a]b=A[W]a=A[C]j=(-+)U=(j,h)J=b[U]h=(+-)a=A[W]U=A[C]j=(h,k)b=a[j]U=A[W]k=(--(-))j=A[C]h=(k,f)a=U[h]j=A[W]f=(--(-))h=A[C]k=(f,Y)Y=(--(-))U=j[k]h=A[W]k=A[C]f=(Y,n)n=(+-)j=h[f]k=A[W]f=A[C]Y=(n,P)h=k[Y]f=A[W]P=(+-)Y=A[C]n=(P,D)D=(--(-))k=f[n]Y=A[W]n=A[C]P=(D,o)f=Y[P]o=(-+)n=A[W]P=A[C]D=(o,w)Y=n[D]w=(--(-))P=A[W]D=A[C]o=(w,V)n=P[o]V=(+-)D=A[W]o=A[C]p=- w=(V,y)P=D[w]o=A[W]w=A[C]y=(--(-))V=(y,p)p=(+-)D=o[V]w=A[W]V=A[C]y=(p,S)o=w[y]S=(--(-))V=A[W]y=A[C]p=(S,Ek)Ek=(-+)w=V[p]y=A[W]p=A[C]S=(Ek,qk)V=y[S]c={X,L,e;J,b,a;U,j;h;k,f;Y;n,P;D;o;w;V}b=(-+)L=A[W]a=-+ e=A[C]J=(b,a)e=(+-)X=L[J]L=E[e]a={(c)}J=a[-+]b=a[-]e=a[-]     s<-(-)  s<-   s<-   s<+  e=(+-)h=(+-)L=E[e]b=A[W]a=A[C]k=-(-)j=(h,k)Y=-(-)f=(-)k=- e=(-+)J=b[j]h=(+-)e=L[e]e=(L,J)b=A[W]a=A[C]j=(h,k)J=b[j]j=A[W]h=A[C]z= k=(f,Y)Y=(-)l={}a=j[k]h=A[W]k=A[C]n=-+ f=(Y,n)P=-+ j=h[f]o=+ k=A[W]n=(-+)f=A[C]Y=(n,P)P=(+-)h=k[Y]f=A[W]s=E[(+-)]D=+ Y=A[C]n=(P,D)k=f[n]L=(-+)c= Y=A[W]L=e[L]n=A[C]D=(--(-))P=(D,o)f=Y[P]X= Y=- C=(C)b={[a]=j,[h]=k;[f]=Y}L=(e,J,b)e=(-)M= J=- K= L=E[e]e=(J)L=(-+-)L=r[L]W=(W)L=(r)r=  K=(-)r=l l=E[K]J=(-+)K=(-)s=l[K]K=()M=(+-)A[K]=s l=E[M]M=(--(-))s=l[M]M=s e=E[J]L=s X=e s=e  -(-)-+   z=A[Z[+-]]s={}W=-+ C=z u=s s=- z=+- c=z z=--(-)r=c<z z=W-c    s<-  k=(k)s=-(-)n=(n)f=(f)h=(h)P= Y=(Y)H=(H) i=s w=+- o=P[w]w= D=o==w s=D -+  + N=D     s<-(-)  s<-+   s<-+  D=+- i=P[D]s=- N=i  z=(-)W=E[z]z=(-)u=W[z]z=A[Z[--(-)]]W={(z)}s=E[(-+)]l={(W)}  u=(-+)l=(+-)s=E[l]l=(u)l={}s=E[(-+)]   s<+  s= A[Z[--(-)]]=s l={}s=E[(--(-))] U=+ l=(-+)a=(-)L=(-)s=E[l]X=E[L]e=A[Z[-]]K=z J=A[Z[-+]]b=(a,U)J=(-)L=e[b]M=X[L]L=- b=- X={(u,L,K)}K= l=((X))M=(-+)l=E[M]X=A[Z[+-]]L=A[Z[-]]e=(J,b)M=X[e]s=l[M]L= X=s M=W  L l=(M)s=+       s<+   s<-   s<-+   s<+   s<-(-) s=-(-)L=(-)X=E[L]l=X  j=+- s=-(-)U=#b a=U==j   l=(+-)s=E[l]u=(-+)l=E[u]u=(-+)E[u]=s u=(--(-))E[u]=l u=A[Z[--(-)]]W=()s=-    s<-  J=- e=(-)L=E[e]e=(J)L=--(-)s=+ e=+- J=e e=-+ b=e e=+- a=b<e e=L-b  l=(+-)C=(-+)X=(-,{})M=(-+)s=E[l]u=A[Z[+-]]z=E[C]K=E[M]M={(X)}K=-+ r={(M)}c=r[K]C=(c)z=(-+)W=(C,z)u={()}l=((u))u=l W=A[Z[+-]]s=W  +  -(-)l=W     s<-   s<-(-)  s<-  e=-+ O=(-+)X=()a=(-(-),{})L=--(-)A[X]=l s=A[K]l=(L,e)s=--(-)b=(+-)e=s L=()s=+- J=s A[L]=l l=E[b]b={(a)}l=-+ s={(b)}b=s s=b[l]l=(+-)a=s s=E[l]U=A[z]B=E[O]O=(a)B=(-+)I=(O,B)U={()}l=((U))U=()A[U]=l I=A[L]B=I l=- I=-+ O=I I=- s=- j=O<I I=l-O  l={}s=E[(-)]  B=A[W]I=B s=B  -  -    s<-(-) z=(--(-))K=(-+)u=x W=()s= A[W]=s l=E[z]c=()z=(-)s=l[z]C=()z=()A[z]=s s=(-(-),{})A[C]=s s= M=(-(-),{c})A[c]=s r=E[K]K=(M)l=K s=K -+  -  e=e+b L=e<=J j= a L=j  L j=e>=J j=a  j L=j  L j=-+ s=L  j L=-+ s=s  L      s<-(-)  s<-   s<+   s<+  z=z+c K= r W=z<=C W=K  W K=z>=C K=r  K W=K  W K=-(-)s=W  K W=+ s=s  W  b=(--(-))s=-(-)J=E[b]b=(-)e=J[b]X=e   z=z+c l=z<=C K= r l=K  l K=z>=C K=r  K l=K  l K=+ s=l  K l=-+ s=s  l    s<-(-) u= s=-(-)A[Z[-]]=l  s=(+,{C})B={()}s=E[(-+)]l={(B)}    s<-+   s<-   s<-  A[W]=N w=A[f]V=-+ o=w+V D=P[o]i=e+D D=-+ s=i%D o=A[k]e=s D=J+o s=+ o=+- i=D%o J=i  r= K= s=- C=   a=U s=-+ k=a b[a]=k a=    s<-  l={}s=E[(-)] s=-+        s<-(-)  s<-+   s<-(-)  s<-(-)  s<-(-)  s<+  b,a=(J,b)s=b  +  +  W=A[Z[+-]]C=-+ c=-+ z=(C,c)W=+- u=z==W s=u  -(-) -(-)l=u   O=-+ s=A[K]j=+- B=(O,j)s=(+-)E[s]=B j=(+-)O=E[j]j=--(-)s=O>j s=s  +  +    s<+   s<-  s=-+ A[W]=l  h= j I=I+O l=I<=B l=h  l h=I>=B h=j  h l=h  l h=-+ s=l  h l=+ s=s  l   W=(--(-))z=+ u=W^z l=-+ s=l-u l=(-+)u=s s=l/u l={s}s=E[(--(-))]    s<+   s<-(-)  s<+  z=A[Z[-+]]s=-+ W=z==u l=W  n=-(-)Y=(--(-))L=e D=(-)h=A[W]k=A[C]f=(Y,n)j=h[f]f=(-)k=E[f]Y=A[W]o=-+ n=A[C]P=(D,o)D=-+ f=Y[P]P=(-)h=k[f]n=- f=+- Y=+- k=(f,Y,n)K[j]=k k=(-)h=E[k]s=-(-)f=A[W]o=-(-)Y=A[C]n=(P,D)k=f[n]j=h[k]k= h=(k)n=- h=A[W]Y=(+-)D=(-)k=A[C]f=(Y,n)j=h[f]f=(-+)k=E[f]Y=A[W]n=A[C]P=(D,o)f=Y[P]h=k[f]Y=--(-)D=- n=-+ f=-+ k=(f,Y,n)K[j]=k k=(+-)h=E[k]P=(--(-))f=A[W]L= Y=A[C]n=(P,D)k=f[n]j=h[k]k= h=(k)  j=(-+)s=E[j]j=(-)E[j]=s s=-    s<-+  s= s=s  -  +  s=l  -(-) +      s<-   s<-+   s<+   s<-+  s=i s=+ l=N  h=()H=(+-)k=-+ A[h]=I l=E[H]H=(+-)s=l[H]P=-+ H=- l=(H,k)H=()n=- f=+- A[H]=l s=A[K]k=-+ l=(k,f)k=()D=(-)A[k]=l s=A[K]f=-+ Y=A[H]V=+- l=(f,Y)f=()A[f]=l l=A[K]Y=(n,P)l=--(-)s=Y==l P=(+-)Y=()A[Y]=s i=E[D]s=(+-)o=A[K]l=(+-)y=- w={(V,y)}D=((w))i=(--(-))s=a[s]N=D..i n=P..N s=(a,l,n)P=(-)n=()A[n]=s N=(-(-),{K,h,L;z;W,U;Y,n,H;f;k;X})l=E[P]P={(N)}s={(P)}P=s s=A[Y]s=s -+  +   z=--(-)W=A[Z[+-]]u=W~=z s=u  + -+    s<+  U=U+h k= H a=U<=j a=k  a k=U>=j k=H  k a=k  a k=-+ s=a  k a=+ s=s  a  U=#b j=-+ a=U==j s=a  -  +     s<-   s<-   s<-(-) k=A[W]L=b P=-(-)f=A[C]n=(+-)Y=(n,P)h=k[Y]s=-+ Y=(--(-))n=+ j=a..h U=X..j h=A[W]P=(--(-))X=U D=- k=A[C]f=(Y,n)j=h[f]h=X K[j]=h k=(+-)h=E[k]L= f=A[W]Y=A[C]a= n=(P,D)k=f[n]j=h[k]k= h=(k) s=+-   s=A[Z[-]]M=- X=+- K=(M,X)W=z s=-+ u[W]=K W=    s<-  s=-+ O=(-)B=E[O]O=(+-)I=B[O]M=L B=(u,M)I=A[Z[+-]]O=()U=B+O a=U+r U=-+ O=-+ b=a%U r=b M= U=z[W]B=r+O I=C[B]a=U..I z[W]=a  s= s=s  - -+       s<+   s<-   s<-(-)  s<+   s<-  L=L+e M=L<=X b= J M=b  M b=L>=X b=J  b M=b  M b=- s=M  b M=+ s=s  M  W= K=(-)l=(+-)s=E[l]C=A[Z[+-]]c=A[Z[-+]]M=+ r=(K,M)z=C[r]u= l=(z)l={}s=E[(-)]  l=X s=L s=X  - -+    s<-  u=(-+)s=E[u]W=A[Z[-+]]z=+- u=(W,z)s=-+  s=-+     s<-   s<-(-)  s<-(-) s=E[(-)]l={W} A[W]=I s=A[W]s=s  -  +   z=- W=A[Z[--(-)]]X=- u=W%z C=A[Z[--(-)]]e=-+ K=A[Z[+-]]a=A[Z[+-]]b=a-u a=+- J=b/a L=e-J M=X^L r=K/M X=- c=(r)C=-(-)M=- z=c%C c=--(-)C=c^u W=z/C C=A[Z[-+]]K=W%M M=-(-)r=K*M c=(r)C=A[Z[+-]]r=(W)z=c+r s=-(-)c=+- K=+- C=z%c r=z-C c=r/K K=--(-)r=C%K z= M=C-r K=M/X X=+- W= M=c%X C= e=- u= L=c-M X=L/e c= L={r;K,M;X}X= r= K= A[Z[+-]]=L M=    s<+  W=A[Z[--(-)]]z=- s=- u=W*z W=+- l=u%W A[Z[+-]]=l  N=A[W]s=N  -(-) - l=N      s<-(-)  s<-   s<+   s<-(-) s=-(-)W=A[Z[+-]]z=A[Z[+-]]u=W==z l=u  s=+ r=A[c]l=r   B=e==J s=-+ I=B    s<-(-) u=x[-]s=A[Z[--(-)]]z=s W=x[-]s=z[W]s=s  -(-)-+  w=--(-)o=P[w]s=- w=A[n]D=o==w N=D     s<-   s<-   s<-  s=-  s=-+   i=A[W]N=i s=i  -(-) -    s<+  O=(--(-))s=E[O]h=(+-)j=E[h]O=(j)s=(-+)E[s]=O s=-  s=A[Z[+-]]s=s -+  +        s=#G  (l),(E,q) d=(q) x=(...) (E,{...},q,d)  x ,(E,q) d=(q) x=(x) (E,{x},q,d)  x ,(E,q) d=(q) x=(x,Z) (E,{x;Z},q,d)  x ,(E,q) d=(q) x=(x,Z,G,F) (E,{x,Z,G,F},q,d)  x ,-+,()W=W+(-+)u[W]=+-  W ,(E,q) d=(q) x=(x,Z,G) (E,{x,Z;G},q,d)  x ,(E) q,s=-,E[--(-)] s  u[s],q=u[s]-(--(-)),q+(+-)-+==u[s] u[s],A[s]=,  s=E[q] ,(E) q=+-,#E,-  u[E[q]]=u[E[q]]+(--(-))  x   s=() d=(s)d[(-)],d[(-)],d[(-+)]=E,C,() -   s   ({},{[(-)]=C;[(--(-))]=E;[(-+)]=() +- }) ,{}((-(-),{}))((l)))(getfenv  () _ENV,  [(--(-))],newproxy,,,,{...}))(...)