Zenit Pro v3

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