TAFX

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