SU Hub stand alone

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