Arkan

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