Infinite Gadgets

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