DaMieN V5

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