Coolgui f3x

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