Cone Hub

 t=.byte; r=.char; c=.sub; h=.concat; s=.ldexp; Q=getfenv  () _ENV ; l=; Z=; f=; i=;  (f) e,o,n=,,{} d=; a={} l=,d-  a[l]=(l); l=;  () e=((f,l,l),)l=l+; o=((f,l,l+e-),)l=l+e; o ;e=(())n[]=e; l<#f   l=() a[l] o=a[l] o=e..(e,,);a[d]=e..(o,,)n[#n+],e,d=o,o,d+ ; .(n); a=(); n=bit  bit.bxor  (l,e) o,n=,  l>  e>   c,a=l%,e%  c~=a  n=n+o  l,e,o=(l-c)/,(e-a)/,o*   l<e  l=e   l>   e=l%  e>  n=n+o  l,o=(l-e)/,o*   n    (e,l,o) o   l=(e/^(l-))%^((o-)-(l-)+); l-l%;  l=^(l-);(e%(l+l)>=l)   ;;; e=;  () l,o,a,c=(a,e,e+);l=(l,)o=(o,)a=(a,)c=(c,)e=e+;(c*)+(a*)+(o*)+l;;  () l=((a,e,e),);e=e+; l;;  () e=(); o=(); c=; n=((o,,)*(^))+e; e=(o,,); l=((-)^(o,));(e==) (n==)  l*; e=;c=;;(e==) (n==)(l*(/))(l*(/));; (l,e-)*(c+(n/(^)));; R=o;  (l) o;( l) l=();(l==) ;;;o=(a,e,e+l-);e=e+l; e={} l=,#o  e[l]=((((o,l,l)),))  (e);; e=o;  (...){...},(,...)   () f={,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,}; t={,}; e={}; a={f,,t,,e};a[]=(); a=,()  c=((),); o=((),); n=(c,,); e=(o,,); e={e,(c,,),,,o};(n==) e[]=(c,,);e[]=(c,,);(n==) e[]=(o,,);(n==) e[]=(o,,)-;(n==) e[]=(o,,)-;e[]=(c,,);;f[a]=e;; l=,() t[l-]=();; l=() o={,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,}; n=,l   e=(); l;(e==) l=(()~=);(e==) l=();(e==) l=();;o[n]=l;;a[]=o  a;;  (l,e,i) n=l[]; o=l[]; e=l[]; l=l[]; (...) c=n; n=o; F=e; a=l; R=r  e=; d=-; X={}; r={...}; t=(,...)-; l={}; o={}; l=,t  (l>=a) X[l-a]=r[l+]; o[l]=r[l+];;; I=t-a+  l; a;   l=c[e];a=l[]; a<=   a<=   a<=   a<=   a<=   a>  (o[l[]]==n[l[]]) e=e+; e=e+l[];; o[l[]]();d=A;; a==   s; i; h; r; t; Z; a;o[l[]]=n[l[]];e=e+;l=c[e];a=l[];Z={};t=;r=a+l[]-; l=a+,r  t=t+;Z[t]=o[l];;h={o[a]((Z,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];i=o[l[]];o[a+]=i;o[a]=i[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];Z={};t=;r=a+l[]-; l=a+,r  t=t+;Z[t]=o[l];;h={o[a]((Z,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];i=o[l[]];o[a+]=i;o[a]=i[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];i=l[];s=o[i] l=i+,l[] s=s..o[l];;o[l[]]=s;e=e+;l=c[e];o[l[]]=n[l[]]; o[l[]][n[l[]]]=n[l[]];; a<=   a==  e=e+l[];  n=l[]; c=n+l[]-; e={}; l=; n=n,c  l=l+;e[l]=o[n];;  (e,,l);; a>   n=l[]; c={}; e=; l=n+l[]-; l=n+,l  e=e+;c[e]=o[l];; c,l=(o[n]((c,,l-n)));l=l+n-;e=; l=n,l  e=e+;o[l]=c[e];;d=l;  h; Z; r; t; i; a;o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;Z={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=Z[t];;d=r;e=e+;l=c[e];o[l[]]=(l[]~=);e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;Z={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=Z[t];;d=r;e=e+;l=c[e];a=l[];h=o[l[]];o[a+]=h;o[a]=h[n[l[]]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];; a<=   a<=   a==   n=l[]; e=o[n] l=n+,l[] e=e..o[l];;o[l[]]=e;  n=l[]; c={}; e=; a=d; l=n+,a  e=e+;c[e]=o[l];; c={o[n]((c,,a-n))}; l=n+l[]-;e=; l=n,l  e=e+;o[l]=c[e];;d=l;; a>  o[l[]][n[l[]]]=n[l[]]; o[l[]]=o[l[]][n[l[]]];; a<=   a>  o[l[]]=n[l[]]; o[l[]]=o[l[]];; a<=   c=l[]; n=d; e={}; l=; n=c,n  l=l+;e[l]=o[n];;  (e,,l); a==  o[l[]]={};  l=l[]; n=o[l]; e=d-l; e=,e  n[e]=o[l+e];; a<=   a<=   a<=   a>  o[l[]]=(F[l[]],,i);  c=l[]; n=d; e={}; l=; n=c,n  l=l+;e[l]=o[n];;  (e,,l);; a==   l=l[];d=l+I-; e=l,d   l=X[e-l];o[e]=l;; o[l[]]=#o[l[]];; a<=   a==   Z; h; r; t; i; a;a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];  n=l[]; c={}; e=; a=n+l[]-; l=n+,a  e=e+;c[e]=o[l];; c={o[n]((c,,a-n))}; l=n+l[]-;e=; l=n,l  e=e+;o[l]=c[e];;d=l;; a<=  o[l[]]={}; a>  i[n[l[]]]=o[l[]]; o[l[]]={({},,l[])};; a<=   a<=   a>   n=l[]; a={}; e=; c=n+l[]-; l=n+,c  e=e+;a[e]=o[l];; c={o[n]((a,,c-n))}; l=n+l[]-;e=; l=n,l  e=e+;o[l]=c[e];;d=l;   ;; a==   e=l[]; l={}; n=d; e=e+,n  l[#l+]=o[e];;  o[e]((l,,n-e)); o[l[]][n[l[]]]=o[l[]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=o[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];; a<=   a==   n=l[]; c={}; e=; a=d; l=n+,a  e=e+;c[e]=o[l];; c={o[n]((c,,a-n))}; l=n+l[]-;e=; l=n,l  e=e+;o[l]=c[e];;d=l; o[l[]][n[l[]]]=o[l[]];; a<=  (o[l[]]==n[l[]]) e=e+; e=e+l[];; a==    ;  d; f; a;o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]]={({},,l[])};e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];f=o[a];d=l[]; l=,d  f[l]=o[a+l];; a<=   a<=   a<=   a<=   a==   e=l[]; c={}; n=; l=e+l[]-; l=e+,l  n=n+;c[n]=o[l];;o[e]((c,,l-e));d=e; o[l[]]=o[l[]];; a==   h; Z; r; t; i; a;o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;Z={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=Z[t];;d=r;e=e+;l=c[e];o[l[]]=(l[]~=);e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;Z={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=Z[t];;d=r;e=e+;l=c[e];a=l[];h=o[l[]];o[a+]=h;o[a]=h[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];o[l[]]=n[l[]]; o[l[]]=(F[l[]],,i);; a<=   a>  e=e+l[];  c=l[]; e=o[l[]];o[c+]=e;o[c]=e[n[l[]]];; a<=  i[n[l[]]]=o[l[]]; a==   e=l[]; c={}; n=; l=e+l[]-; l=e+,l  n=n+;c[n]=o[l];;o[e]((c,,l-e));d=e;  l=l[]; n=o[l]; e=d-l; e=,e  n[e]=o[l+e];; a<=   a<=   a>  o[l[]]={({},,l[])};  Z; h; r; t; i; a;a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;; a==   h; r; a; Z; t;o[l[]]=o[l[]][n[l[]]];e=e+;l=c[e];t=l[];Z={};a=;r=t+l[]-; l=t+,r  a=a+;Z[a]=o[l];;h={o[t]((Z,,r-t))};r=t+l[]-;a=; l=t,r  a=a+;o[l]=h[a];;d=r;e=e+;l=c[e];o[l[]]=i[n[l[]]];e=e+;l=c[e];o[l[]]=o[l[]];e=e+;l=c[e];t=l[];Z={};a=;r=t+l[]-; l=t+,r  a=a+;Z[a]=o[l];;h={o[t]((Z,,r-t))};r=t+l[]-;a=; l=t,r  a=a+;o[l]=h[a];;d=r;e=e+;l=c[e];(o[l[]]==n[l[]]) e=e+; e=e+l[];;  e=l[]; c=e+l[]-; n={}; l=; e=e,c  l=l+;n[l]=o[e];;  (n,,l);; a<=   a>   a; h,a; r; t; Z; s; a;i[n[l[]]]=o[l[]];e=e+;l=c[e];o[l[]]=i[n[l[]]];e=e+;l=c[e];o[l[]]=i[n[l[]]];e=e+;l=c[e];a=l[];s=o[l[]];o[a+]=s;o[a]=s[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];Z={};t=;r=a+l[]-; l=a+,r  t=t+;Z[t]=o[l];;h,r=(o[a]((Z,,r-a)));r=r+a-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z={};t=;r=d; l=a+,r  t=t+;Z[t]=o[l];;h={o[a]((Z,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];h,r={o[a]()};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];o[l[]]=i[n[l[]]];e=e+;l=c[e];a=l[];s=o[l[]];o[a+]=s;o[a]=s[n[l[]]];  Z; h; r; t; i; a;o[l[]][n[l[]]]=o[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;h={o[a]((i,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];a=l[];i={};t=;r=a+l[]-; l=a+,r  t=t+;i[t]=o[l];;o[a]((i,,r-a));d=a;e=e+;l=c[e];a=l[];Z=o[l[]];o[a+]=Z;o[a]=Z[n[l[]]];; a<=   l=l[]; e={}; n=d; l=l+,n  e[#e+]=o[l];;  o[l]((e,,n-l)); a>   c=l[]; e=o[l[]];o[c+]=e;o[c]=e[n[l[]]];  n=l[]; e=o[n] l=n+,l[] e=e..o[l];;o[l[]]=e;; a<=   a<=   a<=   a>   e=l[]; c,n={o[e]()}; n=e+l[]-; l=; e=e,n  l=l+;o[e]=c[l];;d=n; o[l[]][n[l[]]]=o[l[]];; a>   l=l[];d=l+I-; e=l,d   l=X[e-l];o[e]=l;;  e=l[]; n=o[e]; l=l[]; l=,l  n[l]=o[e+l];; a<=   a>  o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]]={};e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];e=e+;l=c[e];o[l[]][n[l[]]]=n[l[]];  e=l[]; n=o[e]; l=l[]; l=,l  n[l]=o[e+l];; a<=  o[l[]]=i[n[l[]]]; a==  o[l[]]();d=A;  n=l[]; c={}; e=; l=n+l[]-; l=n+,l  e=e+;c[e]=o[l];; c,l=(o[n]((c,,l-n)));l=l+n-;e=; l=n,l  e=e+;o[l]=c[e];;d=l;; a<=   a<=   a==   e=l[]; c,n={o[e]()}; n=e+l[]-; l=; e=e,n  l=l+;o[e]=c[l];;d=n; o[l[]]=n[l[]];; a>   e=l[]; c=(l[]-)*; n=o[e]; l=d-e; l=,l  n[c+l]=o[e+l]; o[l[]]=(l[]~=);; a<=   a>  o[l[]]=o[l[]][n[l[]]]; o[l[]]=#o[l[]];; a<=   a; h,a; r; t; Z; s; a;o[l[]]=i[n[l[]]];e=e+;l=c[e];o[l[]]=i[n[l[]]];e=e+;l=c[e];a=l[];s=o[l[]];o[a+]=s;o[a]=s[n[l[]]];e=e+;l=c[e];o[l[]]=n[l[]];e=e+;l=c[e];a=l[];Z={};t=;r=a+l[]-; l=a+,r  t=t+;Z[t]=o[l];;h,r=(o[a]((Z,,r-a)));r=r+a-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];a=l[];Z={};t=;r=d; l=a+,r  t=t+;Z[t]=o[l];;h={o[a]((Z,,r-a))};r=a+l[]-;t=; l=a,r  t=t+;o[l]=h[t];;d=r;e=e+;l=c[e];o[l[]]();d=a;e=e+;l=c[e];  ; a==  o[l[]]=(l[]~=); o[l[]]=i[n[l[]]];;e=e+;;;; ((),{},())();