Id player

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