script

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