script auto win

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