Unli

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