Gold doom

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