stemcmicro
Version:
Computer Algebra System in TypeScript
1 lines • 693 kB
JavaScript
System.register(["math-expression-native","math-expression-atoms","math-expression-tree","math-expression-context"],(function(t){"use strict";var e,n,r,s,i,o,a,u,c,l,h,f,p,d,m,g,x,y,w,E,v,D,b,A,S,_,k,F,C,T,M,O,N,B,L,q,I,P,R,U,$,z,W,X,K,H,J,G,V,j,Q,Z,Y,tt,et,nt,rt,st,it,ot,at,ut,ct,lt,ht,ft,pt,dt,mt,gt,xt,yt,wt,Et,vt,Dt,bt,At,St,_t,kt,Ft,Ct,Tt,Mt,Ot,Nt,Bt,Lt,qt,It,Pt;return{setters:[function(c){e=c.native_sym,n=c.Native,r=c.is_native,s=c.code_from_native_sym,i=c.log,o=c.multiply,a=c.real,u=c.exp,t({NATIVE_MAX:c.NATIVE_MAX,NATIVE_MIN:c.NATIVE_MIN,Native:c.Native,code_from_native_sym:c.code_from_native_sym,is_native_sym:c.is_native_sym,native_sym:c.native_sym})},function(t){c=t.Err,l=t.is_rat,h=t.is_flt,f=t.is_str,p=t.create_sym,d=t.is_boo,m=t.Flt,g=t.negOne,x=t.BigInteger,y=t.create_int,w=t.create_rat,E=t.Rat,v=t.Boo,D=t.is_sym,b=t.is_num,A=t.is_tensor,S=t.imu,_=t.one,k=t.is_uom,F=t.zero,C=t.Tensor,T=t.Sym,M=t.is_err,O=t.is_blade,N=t.is_hyp,B=t.is_keyword,L=t.is_imu,q=t.Str,I=t.create_keyword_ns,P=t.assert_sym,R=t.create_tensor,U=t.Map,$=t.assert_tensor,z=t.booT,W=t.booF,X=t.create_algebra,K=t.create_flt,H=t.assert_num,J=t.QQ,G=t.is_lambda,V=t.Uom,j=t.Cell,Q=t.Lambda,Z=t.create_str,Y=t.et,tt=t.epsilon,et=t.Hyp,nt=t.is_map,rt=t.is_tag,st=t.is_jsobject,it=t.create_boo,ot=t.JsObject,at=t.assert_jsobject,ut=t.is_cell,ct=t.assert_str,lt=t.assert_map,ht=t.assert_cell,ft=t.assert_rat,pt=t.assert_flt,dt=t.create_hyp,mt=t.Keyword,gt=t.booU,xt=t.bigInt,yt=t.Char,wt=t.Set,Et=t.create_sym_ns,vt=t.Tag,Dt=t.Timestamp,bt=t.Uuid},function(t){At=t.is_nil,St=t.items_to_cons,_t=t.is_atom,kt=t.nil,Ft=t.is_cons,Ct=t.car,Tt=t.cdr,Mt=t.cons,Ot=t.assert_cons_or_nil,Nt=t.pos_end_items_to_cons,Bt=t.assert_cons,Lt=t.is_singleton},function(t){qt=t.SIGN_GT,It=t.SIGN_LT,Pt=t.SIGN_EQ}],execute:function(){function Rt(t,e,n,r){if("a"===n&&!r)throw new TypeError("Private accessor was defined without a getter");if("function"==typeof e?t!==e||!r:!e.has(t))throw new TypeError("Cannot read private member from an object whose class did not declare it");return"m"===n?r:"a"===n?r.call(t):r?r.value:e.get(t)}function Ut(t,e,n,r,s){if("m"===r)throw new TypeError("Private method is not writable");if("a"===r&&!s)throw new TypeError("Private accessor was defined without a setter");if("function"==typeof e?t!==e||!s:!e.has(t))throw new TypeError("Cannot write private member to an object whose class did not declare it");return"a"===r?s.call(t,n):s?s.value=n:e.set(t,n),n}function $t(t,e,n,r){return At(t),new c(t,r,e,n)}var zt;t({create_engine:function(t={}){switch(function(t){if(t.syntaxKind)switch(t.syntaxKind){case Lz.ClojureScript:return QW.ClojureScript;case Lz.Eigenmath:case Lz.EcmaScript:return QW.Micro;case Lz.PythonScript:return QW.PythonScript}return QW.Micro}(t)){case QW.Micro:return new aX(t);case QW.ClojureScript:return new uX(t);case QW.PythonScript:return new cX(t);default:throw new Error}},create_script_context:function(t={}){let e=1;const n=yv(function(t){const e=function(t,e){return t};if(t){return e({allowUndeclaredVars:"number"==typeof t.allowUndeclaredVars?t.allowUndeclaredVars:ZW.Nil,assumes:t.assumes,dependencies:ie,enable:t.enable,disable:t.disable,noOptimize:!1,useCaretForExponentiation:t.useCaretForExponentiation,useDerivativeShorthandLowerD:t.useDerivativeShorthandLowerD,useIntegersForPredicates:t.useIntegersForPredicates,useParenForTensors:t.useParenForTensors,syntaxKind:t.syntaxKind})}return e({allowUndeclaredVars:ZW.Nil,assumes:{},dependencies:ie,enable:[],disable:[],noOptimize:!1,useCaretForExponentiation:!1,useDerivativeShorthandLowerD:!1,useIntegersForPredicates:!1,useParenForTensors:!1})}(t));switch(tW(n,t),t.syntaxKind){case Lz.ClojureScript:case Lz.Eigenmath:case Lz.PythonScript:break;default:nX(n),rX(n),sX(n),iX(n),oX(n)}return{get $(){return n},clearBindings(){n.clearBindings()},defineFunction(t,e){n.defineFunction(t,e)},getSymbolProps:t=>n.getSymbolPredicates(t),getBinding:(t,e)=>(P(t),n.getBinding(t,e)),getSymbolsInfo:()=>n.getSymbolsInfo(),evaluate(e,r){const s=function(t,e){const n={};e&&("boolean"==typeof e.autoExpand&&(n.autoExpand=e.autoExpand),"boolean"==typeof e.autoFactor&&(n.autoFactor=e.autoFactor),Array.isArray(e.disable)&&(n.disable=e.disable),Array.isArray(e.enable)&&(n.enable=e.enable));t&&("boolean"==typeof t.autoExpand&&(n.autoExpand=t.autoExpand),"boolean"==typeof t.autoFactor&&(n.autoFactor=t.autoFactor),Array.isArray(t.disable)&&(n.disable=t.disable),Array.isArray(t.enable)&&(n.enable=t.enable));return n}(r,t);return jz(e,s,n)},executeProlog(t){aE(t,n)},executeScript(e,r){const s={};return t&&("boolean"==typeof t.catchExceptions&&(s.catchExceptions=t.catchExceptions),t.syntaxKind&&(s.syntaxKind=t.syntaxKind),"boolean"==typeof t.useIntegersForPredicates&&(s.useIntegersForPredicates=t.useIntegersForPredicates),t.disable),r&&("boolean"==typeof r.catchExceptions&&(s.catchExceptions=r.catchExceptions),r.syntaxKind&&(s.syntaxKind=r.syntaxKind),"boolean"==typeof r.useIntegersForPredicates&&(s.useIntegersForPredicates=r.useIntegersForPredicates)),Gz(e,function(t,e){return t?{catchExceptions:t.catchExceptions,syntaxKind:t.syntaxKind,useCaretForExponentiation:ae(e.getDirective(oe.useCaretForExponentiation)),useIntegersForPredicates:!!t.useIntegersForPredicates,useParenForTensors:ae(e.getDirective(oe.useParenForTensors)),explicitAssocAdd:!1,explicitAssocExt:!1,explicitAssocMul:!1}:{catchExceptions:!1,useCaretForExponentiation:!1,useIntegersForPredicates:!1,useParenForTensors:!1,explicitAssocAdd:!1,explicitAssocExt:!1,explicitAssocMul:!1}}(s,n),n)},renderAsAscii:t=>jx(t,n),renderAsInfix:t=>su(t,n),renderAsHuman:t=>by(t,n),renderAsLaTeX:t=>Ay(t,n),renderAsSExpr:t=>Na(t,n),simplify:t=>Iw(t,n),addRef(){e++},release(){e--,0===e&&eW(n)}}},human_readable_syntax_kind:function(t){if(t)switch(t){case Lz.ClojureScript:return"ClojureScript";case Lz.EcmaScript:return"EcmaScript";case Lz.Eigenmath:return"Eigenmath";case Lz.PythonScript:return"PythonScript"}return"Eigenmath"},roots:ow}),"function"==typeof SuppressedError&&SuppressedError;class Wt{constructor(t,e){this.message=t,this.argList=e,this.name="Localizable",this.type="localizable",zt.set(this,1),e.addRef()}addRef(){var t;Ut(this,zt,(t=Rt(this,zt,"f"),++t),"f")}release(){var t;Ut(this,zt,(t=Rt(this,zt,"f"),--t),"f"),0===Rt(this,zt,"f")&&this.argList.release()}contains(t){throw new Error("Method not implemented.")}equals(t){return this===t||!!Xt(t)&&(this.message.key===t.message.key&&this.argList.equals(t.argList))}get iscons(){return!1}get isnil(){return!1}toString(){return`Localizable(${JSON.stringify(this.message)}, ${this.argList})`}}function Xt(t){return t instanceof Wt}function Kt(t,...e){const n=St(...e);try{const e=new Wt(t,n);try{return $t(e)}finally{e.release()}}finally{n.release()}}zt=new WeakMap;const Ht={Hello_World:Jt(0,"",""),Operator_0_cannot_be_applied_to_types_1_and_2:Jt(1e3,"Operator_0_cannot_be_applied_to_types_1_and_2_1000","Operator '{0}' cannot be applied to types '{1}' and '{2}'."),Property_0_does_not_exist_on_type_1:Jt(1001,"Property_0_does_not_exist_on_type_1_1001","Property '{0}' does not exist on type '{1}'."),Division_by_zero:Jt(1002,"Division_by_zero_1002","Division by zero.")};function Jt(t,e,n){return{code:t,key:e,text:n}}function Gt(t){return t.geq(Number.MIN_SAFE_INTEGER)&&t.leq(Number.MAX_SAFE_INTEGER)}function Vt(t){return l(t)&&t.isInteger()}class jt extends Error{constructor(t){super(),this.name="ProgrammingError","string"==typeof t&&(this.message=t)}}function Qt(t){return l(t)?t.isInteger()&&Gt(t.a)?t.a.toJSNumber():NaN:h(t)&&Math.floor(t.d)===t.d?t.d:NaN}function Zt(t){if(_t(t)){if(f(t))return t.str;throw new jt(`${t}: ${t.type}`)}throw new jt(`${t}`)}const Yt=-1,te=0,ee=1,ne=0,re=1;function se(t){return(t&re)===re}const ie=["Blade","Boo","Cell","Flt","Imu","Map","Rat","Sym","Tensor","Uom"];var oe;function ae(t){return t>0}function ue(t){return"boolean"==typeof t&&t?1:0}!function(t){t[t.canonicalize=0]="canonicalize",t[t.convertSinToCos=1]="convertSinToCos",t[t.convertCosToSin=2]="convertCosToSin",t[t.familiarize=3]="familiarize",t[t.expanding=4]="expanding",t[t.expandAbsSum=5]="expandAbsSum",t[t.expandCosSum=6]="expandCosSum",t[t.expandPowSum=7]="expandPowSum",t[t.expandSinSum=8]="expandSinSum",t[t.evaluatingAsFloat=9]="evaluatingAsFloat",t[t.complexAsClock=10]="complexAsClock",t[t.complexAsPolar=11]="complexAsPolar",t[t.complexAsRectangular=12]="complexAsRectangular",t[t.convertExpToTrig=13]="convertExpToTrig",t[t.convertTrigToExp=14]="convertTrigToExp",t[t.keepZeroTermsInSums=15]="keepZeroTermsInSums",t[t.factoring=16]="factoring",t[t.renderFloatAsEcmaScript=17]="renderFloatAsEcmaScript",t[t.useCaretForExponentiation=18]="useCaretForExponentiation",t[t.useIntegersForPredicates=19]="useIntegersForPredicates",t[t.useParenForTensors=20]="useParenForTensors",t[t.depth=21]="depth",t[t.drawing=22]="drawing",t[t.nonstop=23]="nonstop",t[t.forceFixedPrintout=24]="forceFixedPrintout",t[t.maxFixedPrintoutDigits=25]="maxFixedPrintoutDigits",t[t.printMode=26]="printMode",t[t.codeGen=27]="codeGen"}(oe||(oe={}));const ce=1,le=2,he=[ce,le],fe=ce|le,pe=ce|le;let de=class{constructor(t){this.extension=t}create(t){return new this.extension(t)}};function me(t){return new de(t)}function ge(t,e){return t.equals(e)?(e.addRef(),[ne,e]):(t.addRef(),[re,t])}var xe,ye;class we{constructor(t,e,n){this.handler=t,xe.set(this,void 0),ye.set(this,void 0),Ut(this,xe,e,"f"),Ut(this,ye,n,"f")}get hash(){return Rt(this,xe,"f")}get name(){return Rt(this,xe,"f")}iscons(){return!1}operator(){throw new jt}isKind(t){return!!_t(t)&&Rt(this,ye,"f").call(this,t)}toHumanString(t,r){return Zt(this.handler.dispatch(t,e(n.human),kt,r))}toInfixString(t,r){return Zt(this.handler.dispatch(t,e(n.infix),kt,r))}toLatexString(t,r){return Zt(this.handler.dispatch(t,e(n.latex),kt,r))}toListString(t,r){return Zt(this.handler.dispatch(t,e(n.sexpr),kt,r))}evaluate(t,e,n){throw new Error("evaluate method not implemented.")}transform(t,e){const n=this.valueOf(t,e);try{return ge(n,t)}finally{n.release()}}valueOf(t,e){return this.dispatch(t,p("valueof"),kt,e)}binL(t,e,n,r){return this.handler.binL(t,e,n,r)}binR(t,e,n,r){return this.handler.binR(t,e,n,r)}dispatch(t,e,n,r){const s=this.handler.dispatch(t,e,n,r);return At(s)?Kt(Ht.Property_0_does_not_exist_on_type_1,e,p(t.type)):s}subst(t,e,n,r){throw new Error("subst method not implemented.")}test(t,e,n){const r=this.handler.dispatch(t,e,kt,n);if(d(r))return r.isTrue();throw Kt(Ht.Property_0_does_not_exist_on_type_1,e,p(t.type))}}xe=new WeakMap,ye=new WeakMap;class Ee{constructor(t,e,n){this.builder=t,this.type=e,this.guard=n}create(t){return new we(this.builder.create(),this.type,this.guard)}}class ve{constructor(t){this.handler=t}get hash(){throw new Error("Method not implemented.")}get name(){throw new Error("Method not implemented.")}iscons(){throw new Error("Method not implemented.")}operator(){throw new Error("Method not implemented.")}isKind(t,e){throw new Error("Method not implemented.")}subst(t,e,n,r){throw new Error("Method not implemented.")}toHumanString(t,e){throw new Error("Method not implemented.")}toInfixString(t,e){throw new Error("Method not implemented.")}toLatexString(t,e){throw new Error("Method not implemented.")}toListString(t,e){throw new Error("Method not implemented.")}evaluate(t,e,n){throw new Error("Method not implemented.")}transform(t,e){throw new Error("Method not implemented.")}valueOf(t,e){throw new Error("Method not implemented.")}test(t,e,n){return this.handler.test(t,e,n)}binL(t,e,n,r){return this.handler.binL(t,e,n,r)}binR(t,e,n,r){return this.handler.binR(t,e,n,r)}dispatch(t,e,n,r){return this.handler.dispatch(t,e,n,r)}}function De(t,e,n){return t===be.d?be:t===Ae.d?Ae:t===Fe.d?Fe:t===Se.d?Se:t===Ce.d?Ce:new m(t,e,n)}const be=new m(0),Ae=new m(1),Se=new m(2),_e=new m(Math.PI);new m(1e-6);const ke=new m(Math.E),Fe=new m(-1),Ce=new m(-2),Te=e(n.add),Me=e(n.cos),Oe=e(n.tan),Ne=e(n.subtract),Be=e(n.multiply),Le=e(n.divide),qe=e(n.pow),Ie=e(n.outer),Pe=e(n.inner),Re=e(n.inv),Ue=e(n.lco),$e=e(n.rco),ze=e(n.sin);e(n.succ),e(n.pred),e(n.E);const We=e(n.PI),Xe=e(n.factorial);e(n.iszero),e(n.testlt),e(n.testgt),e(n.testle),p(":"),e(n.tau);const Ke=e(n.IMU);var He;!function(t){t[t.Ascii=0]="Ascii",t[t.Human=1]="Human",t[t.Infix=2]="Infix",t[t.LaTeX=3]="LaTeX",t[t.SExpr=4]="SExpr",t[t.EcmaScript=5]="EcmaScript"}(He||(He={}));const Je=new class{constructor(){this.tos=0,this.stack=[]}};function Ge(t){throw Ve(0),new Error(`Stop: ${t}`)}function Ve(t){if(Je.tos<=t)Je.tos=t;else for(;Je.tos>t;)Je.stack[Je.tos]=null,Je.tos--}function je(t,e,n){n.pushDirective(oe.expanding,0);try{return t(e,n)}finally{n.popDirective()}}function Qe(t,e,n){n.pushDirective(oe.expanding,1);try{return t(e,n)}finally{n.popDirective()}}function Ze(t,e,n,r){r.pushDirective(oe.expanding,1);try{return t(e,n,r)}finally{r.popDirective()}}class Ye{static NegOne(t){return t.getDirective(oe.evaluatingAsFloat)?Fe:g}static PI(t){return t.getDirective(oe.evaluatingAsFloat)?_e:We}}function tn(t,e){return t.multiply(e)}function en(t,e){return t.divide(e)}function nn(t,e){return t.mod(e)}function rn(t,e){const n=t.divmod(e);return[n.quotient,n.remainder]}function sn(t,e){return t.pow(e)}function on(t){return t instanceof m}const an=1e7,un=9007199254740992;function cn(t){return-un<t&&t<un}function ln(t){return t>0?Math.floor(t):Math.ceil(t)}const hn=1<<30;function fn(t){if(t instanceof x){const e=t.value|BigInt(hn);return e&-e}throw new Error}function pn(t,e){return t=yn(t),e=yn(e),t.greater(e)?t:e}function dn(t,e){return t=yn(t),e=yn(e),t.lesser(e)?t:e}function mn(t,e){if(t=yn(t).abs(),e=yn(e).abs(),t.equals(e))return t;if(t.isZero())return e;if(e.isZero())return t;let n,r=wn[1];for(;t.isEven()&&e.isEven();)n=dn(fn(t),fn(e)),t=t.divide(n),e=e.divide(n),r=r.multiply(n);for(;t.isEven();)t=t.divide(fn(t));do{let n;for(;e.isEven();)e=e.divide(fn(e));t.greater(e)&&(n=e,e=t,t=n),e=e.subtract(t)}while(!e.isZero());return r.isUnit()?t:t.multiply(r)}const gn=function(t,e,n,r){n=n||"0123456789abcdefghijklmnopqrstuvwxyz";let s=String(t);r||(s=s.toLowerCase(),n=n.toLowerCase());const i=s.length,o=Math.abs(e),a={};for(let t=0;t<n.length;t++)a[n[t]]=t;for(let t=0;t<i;t++){const n=s[t];if("-"!==n&&(n in a&&a[n]>=o)){if("1"===n&&1===o)continue;throw new Error(n+" is not a valid digit in base "+e+".")}}const u=yn(e),c=[],l="-"===s[0];for(let t=l?1:0;t<s.length;t++){const e=s[t];if(e in a)c.push(yn(a[e]));else{if("<"!==e)throw new Error(e+" is not a valid character");{const e=t;do{t++}while(">"!==s[t]&&t<s.length);c.push(yn(s.slice(e+1,t)))}}}return xn(c,u,l)};function xn(t,e,n){let r=wn[0],s=wn[1];for(let n=t.length-1;n>=0;n--)r=r.add(t[n].multiply(s)),s=s.multiply(e);return n?r.negate():r}function yn(t){return"number"==typeof t?function(t){return new x(BigInt(t))}(t):"string"==typeof t?function(t){if(cn(+t)){const e=+t;if(e===ln(e))return new x(BigInt(e));throw new Error("Invalid integer: "+t)}const e="-"===t[0];e&&(t=t.slice(1));const n=t.split(/e/i);if(n.length>2)throw new Error("Invalid integer: "+n.join("e"));if(2===n.length){let e=n[1];"+"===e[0]&&(e=e.slice(1));let r=+e;if(r!==ln(r)||!cn(r))throw new Error("Invalid integer: "+r+" is not a valid exponent.");let s=n[0];const i=s.indexOf(".");if(i>=0&&(r-=s.length-i-1,s=s.slice(0,i)+s.slice(i+1)),r<0)throw new Error("Cannot include negative exponent part for integers");s+=new Array(r+1).join("0"),t=s}if(!/^([0-9][0-9]*)$/.test(t))throw new Error("Invalid integer: "+t);return new x(BigInt(e?"-"+t:t))}(t):"bigint"==typeof t?new x(t):t}const wn=[];function En(t,e,n,r){return void 0===t?wn[0]:void 0!==e&&(10!=+e||n)?gn(t,e,n,r):yn(t)}for(let t=0;t<1e3;t++)wn[t]=yn(t),t>0&&(wn[-t]=yn(-t));En.one=wn[1],En.zero=wn[0],En.minusOne=wn[-1],En.max=pn,En.min=dn,En.gcd=mn,En.lcm=function(t,e){return t=yn(t).abs(),e=yn(e).abs(),t.divide(mn(t,e)).multiply(e)},En.isInstance=function(t){return t instanceof x},En.randBetween=function(t,e,n){const r=yn(t),s=yn(e),i=n||Math.random,o=dn(r,s),a=function(t,e){const n=vn(e);if(n.isZero()){if(t.isZero())return{value:[0],isNegative:!1};throw new Error("Cannot convert nonzero numbers to base 0.")}if(n.equals(-1)){if(t.isZero())return{value:[0],isNegative:!1};const e=[];if(t.isNegative())return{value:e.concat.apply([],Array.apply(null,Array(-t.toJSNumber())).map(Array.prototype.valueOf,[1,0])),isNegative:!1};const n=Array.apply(null,Array(t.toJSNumber()-1)).map(Array.prototype.valueOf,[0,1]);return n.unshift([1]),{value:e.concat.apply([],n),isNegative:!1}}let r=!1;t.isNegative()&&n.isPositive()&&(r=!0,t=t.abs());if(n.isUnit())return t.isZero()?{value:[0],isNegative:!1}:{value:Array.apply(null,Array(t.toJSNumber())).map(Number.prototype.valueOf,1),isNegative:r};const s=[];let i=t;for(;i.isNegative()||i.compareAbs(n)>=0;){const t=i.divmod(n);i=t.quotient;let e=t.remainder;e.isNegative()&&(e=n.minus(e).abs(),i=i.next()),s.push(e.toJSNumber())}return s.push(i.toJSNumber()),{value:s.reverse(),isNegative:r}}(pn(r,s).subtract(o).add(1),an).value,u=[];let c=!0;for(let t=0;t<a.length;t++){const e=c?a[t]+(t+1<a.length?a[t+1]/an:0):an,n=ln(i()*e);u.push(n),n<a[t]&&(c=!1)}return o.add(En.fromArray(u,an,!1))},En.fromArray=function(t,e,n){return xn(t.map(yn),yn(e||10),n)};const vn=En,Dn=y(0),bn=Dn.succ(),An=y(2),Sn=y(3),_n=y(4),kn=y(5),Fn=y(6),Cn=y(7),Tn=y(8),Mn=y(9),On=y(10),Nn=On.succ(),Bn=bn.neg();An.neg(),Sn.neg();const Ln=_n.neg();kn.neg(),Fn.neg(),Cn.neg(),Tn.neg(),Mn.neg(),On.neg(),Nn.neg();const qn=w(1,2);qn.neg();const In=w(1,3);function Pn(t){return vn(t)}function Rn(t,e){if(t.isPositive()){if(e.isNegative())return t.multiply(vn(-1))}else if(e.isPositive())return t.multiply(vn(-1));return t}function Un(t,e){return t.isPositive()?t:t.multiply(vn(-1))}function $n(t){const e=en(t.a,t.b);return new E(e,vn.one)}function zn(t){return l(t)?t.numer():bn}function Wn(t){return l(t)?t.denom():bn}function Xn(t,e){return new E(vn(t),vn(e))}function Kn(t){return l(t)||on(t)?t.toNumber():0}function Hn(t){return new E(function(t){let e;if(0===t||1===t)return e=vn(1),e;e=vn(2);let n=vn(0);if(3<=t)for(let r=3;r<=t;r++)n=vn(r),e=tn(e,n);return e}(t),vn.one)}function Jn(t,e){if(l(t)&&l(e))return t.compare(e);const n=(h(t),t.toNumber()),r=(h(e),e.toNumber());return n<r?Yt:n>r?ee:te}function Gn(t,e){return Jn(t,e)===Yt}function Vn(t){return t instanceof v}const jn=e(n.isone);function Qn(t,e){const n=St(jn,t);try{const t=e.valueOf(n);try{if(Vn(t))return t.isTrue();if(l(t))return!t.isZero();throw new jt(`${t}`)}finally{t.release()}}finally{n.release()}}const Zn=e(n.multiply);function Yn(t,...e){const n=St(Zn,...e);try{return t.valueOf(n)}finally{n.release()}}function tr(t,e){const n=Yn(t,y(-1),e);try{return t.valueOf(n)}finally{n.release()}}const er=!0,nr=e(n.add);p("adj"),p("algebra");const rr=p("and"),sr=p("approxratio"),ir=p("arccos"),or=p("arccosh"),ar=p("arcsin"),ur=p("arcsinh"),cr=p("arctan"),lr=p("arctanh");p("atomize");const hr=p("besselj"),fr=p("bessely");p("binding");const pr=p("binomial"),dr=p("ceiling"),mr=p("check"),gr=p("choose");e(n.circexp);const xr=p("clear"),yr=p("clearall");p("clearpatterns");const wr=p("coeff");p("cofactor"),p("compare"),p("compare-factors"),p("compare-terms");const Er=e(n.component),vr=e(n.condense),Dr=p("contract"),br=Me,Ar=p("cosh");p("decomp");const Sr=p("defint");p("denominator");const _r=p("det"),kr=p("dim"),Fr=p("dirac");p("divide"),p("divisors");const Cr=p("do"),Tr=p("dot");p("draw"),p("dsolve");const Mr=p("eigen"),Or=p("eigenval"),Nr=p("eigenvec");p("equal");const Br=p("erf"),Lr=p("erfc"),qr=p("eval"),Ir=e(n.exp),Pr=e(n.expand);p("expcos");const Rr=e(n.factor),Ur=Xe;p("factorpoly");const $r=e(n.float),zr=p("floor"),Wr=e(n.fn),Xr=p("for"),Kr=e(n.function),Hr=p("gamma"),Jr=e(n.gcd),Gr=e(n.hermite),Vr=e(n.hilbert);p("if");const jr=e(n.imag);e(n.inner);const Qr=e(n.integral),Zr=Re;p("invg"),p("isinteger");const Yr=e(n.isprime),ts=p("laguerre");p("laplace");const es=p("lcm");e(n.lco);const ns=p("legendre"),rs=p("let"),ss=e(n.log),is=Be;e(n.not),p("nroots"),p("number"),p("numerator");const os=p("operator"),as=p("or");e(n.outer);const us=p("pattern");e(n.polar);const cs=qe,ls=p("printLeaveEAlone"),hs=p("printLeaveXAlone");p("print");const fs=p("product"),ps=p("quote");p("quotient");const ds=p("rank");e(n.rco);const ms=e(n.real),gs=e(n.isreal),xs=p("round");e(n.rect),p("roots");const ys=e(n.assign),ws=p("sgn"),Es=ze,vs=p("sinh");p("shape");const Ds=p("sqrt");p("stop"),e(n.subst),p("-");const bs=p("sum"),As=Oe,Ss=p("tanh"),_s=e(n.taylor),ks=e(n.test),Fs=e(n.testge),Cs=e(n.testgt),Ts=e(n.testle),Ms=e(n.testlt),Os=p("transpose"),Ns=p("unit"),Bs=p("uom");e(n.zero),p("lastPrint");const Ls=p("lastAsciiPrint"),qs=p("lastInfixPrint"),Is=p("lastLatexPrint"),Ps=p("lastSexprPrint"),Rs=p("lastHumanPrint");p("autoexpand"),p("autofactor");const Us=p("bake");p("trace");const $s=p("$METAA"),zs=p("$METAB"),Ws=p("$METAX"),Xs=p("$SECRETX");p("version"),p("a"),p("b"),p("c");const Ks=p("d"),Hs=p("i"),Js=p("j");p("n"),p("r");const Gs=p("s"),Vs=p("t"),js=p("x"),Qs=p("y"),Zs=p("z"),Ys=p("I");p("a_"),p("b_"),p("x_");p("$C1"),p("$C2"),p("$C3"),p("$C4"),p("$C5"),p("$C6");const ti=1e4,ei=24,ni=function(){const t=[2];let e=3;for(;t.length<ti;){let n=0;const r=Math.sqrt(e);for(;n<t.length&&t[n]<=r;){if(e%t[n]==0){n=-1;break}n++}-1!==n&&t.push(e),e+=2}return t[ti]=0,t}(),ri=7488,si=String.fromCharCode(183);function ii(t){return t.isZero()?0:t.isPositive()?1:-1}function oi(t,e){return t.equals(e)}function ai(t){return t.contains(js)?js:t.contains(Qs)?Qs:t.contains(Zs)?Zs:t.contains(Vs)?Vs:t.contains(Gs)?Gs:js}function ui(t){return Ft(t)?[...t].length:0}function ci(t){return h(t)||l(t)}function li(t){return ci(t)&&t.isNegative()}function hi(t,e){const n=t.car;return!!D(n)&&n.equalsSym(e)}const fi=e(n.abs);function pi(t){return Ft(t)&&hi(t,fi)}function di(t){return Ft(t)&&function(t){return hi(t,Te)}(t)}function mi(t){return Ft(t)&&hi(t,Be)}function gi(t){return Ft(t)&&D(t.opr)&&r(t.opr,n.pow)}function xi(t){return Ft(t)&&hi(t,Xe)}function yi(t){return Ft(t)&&hi(t,Ie)}function wi(t){return!!Ft(t)&&(!!hi(t,Pe)||!!hi(t,Tr))}function Ei(t){return Ft(t)&&hi(t,Os)}function vi(t){return Ft(t)&&hi(t,Zr)}function Di(t){return!(!b(t)&&!Ys.equals(t))||!!A(t)&&t.everyElement(Di)}function bi(t){return Ys.equals(t)}function Ai(t){return Ct(Ct(t))}function Si(t){return Ct(Tt(t))}function _i(t){return Tt(Tt(t))}function ki(t){return Ct(Ct(Tt(t)))}function Fi(t){return Ct(Tt(Tt(t)))}function Ci(t){return Tt(Ct(Tt(t)))}function Ti(t){return Ct(Tt(Ct(Tt(t))))}function Mi(t){return Ct(Tt(Tt(Tt(t))))}function Oi(t){return Ct(Tt(Tt(Tt(Tt(t)))))}function Ni(t){return l(t)?1===ii(t.a):!!h(t)&&t.d>0}function Bi(t){return l(t)?oi(t.a,2)&&oi(t.b,1):!!h(t)&&2===t.d}function Li(t){return!!b(t)&&t.isMinusOne()}function qi(t,e){return Qn(t,e)||Li(t)}function Ii(t,e){return null==e&&(e=ai(t)),!(!function(t,e){return function(t,e){return mi(t)?t.tail().every((t=>Pi(t,e))):Pi(t,e)}(t,e)}(t,e)||1!==function(...t){return t.reduce(((t,e)=>t+Number(e)),0)}(t.contains(js),t.contains(Qs),t.contains(Zs)))&&e}function Pi(t,e){if(gi(t)){const n=t.base,r=t.expo;return l(r)&&r.isPositiveInteger()&&Ui(n,e)}return Ui(t,e)}function Ri(t,e){return!!t.contains(e)&&Ui(t,e)}function Ui(t,e){return di(t)?t.tail().every((t=>$i(t,e))):$i(t,e)}function $i(t,e){return mi(t)?t.tail().every((t=>zi(t,e))):zi(t,e)}function zi(t,e){if(t.equals(e))return!0;if(gi(t)&&t.base.equals(e)){const e=t.expo;return l(e)&&e.isPositiveInteger()}return!t.contains(e)}function Wi(t){if(gi(t)){const e=t.expo;if(l(e)&&li(t.base))return!0}return!1}function Xi(t,e){return mi(t)&&3===ui(t)&&h(Si(t))&&Wi(Fi(t))||e.equals(t,S)}function Ki(t){if(mi(t)&&3===ui(t)){if(b(Si(t))&&Fi(t).equals(S))return!0;if(t.equals(S))return!0;if(Wi(Fi(t)))return!0}return!1}function Hi(t){if(di(t)){if(3===ui(t)){const e=Si(t);if(b(e)&&(Ki(Fi(t))||Ki(t)))return!0}}return!1}function Ji(t){return Vt(t)&&t.a.isEven()}function Gi(t){return l(t)&&t.isFraction()}function Vi(t,e){return null!==t&&(l(t)?oi(t.a,e)&&oi(t.b,1):!!h(t)&&t.d===e)}function ji(t,e,n){return l(t)?t.numer().isIntegerNumber(e)&&t.denom().isIntegerNumber(n):!!h(t)&&t.d===e/n}function Qi(t){return ji(t,1,2)}function Zi(t){return ji(t,-1,2)}function Yi(t){return!(!h(t)&&!$r.equals(t))||!!Ft(t)&&[...t].some(Yi)}function to(t,e){const n=e.valueOf(t);try{return ci(n)?function(t){if(t.isZero())return Kt(Ht.Division_by_zero);if(on(t))return t.inv();if(l(t))return t.inv();throw new Error}(n):e.valueOf(St(qe,n,Bn))}finally{n.release()}}function eo(t,e,n){return r=function(t,e,n,r){const s=St(t,e,n);try{return r.valueOf(s)}finally{s.release()}}(Be,t,e,n),r;var r}function no(t,e,n){return function(t,e,n,r){r.pushDirective(oe.expanding,0);try{return t(e,n,r)}finally{r.popDirective()}}(eo,t,e,n)}function ro(t,e){if(t.length>1){let n=t[0];for(let r=1;r<t.length;r++)n=Yn(e,n,t[r]);return n}return 1===t.length?t[0]:_}function so(t,e){e.pushDirective(oe.factoring,1);try{return ro(t,e)}finally{e.popDirective()}}function io(t){return!!li(t)||mi(t)&&li(t.argList.head)}function oo(t){return!(!di(t)||!io(t.argList.head))||io(t)}const ao=e(n.add);function uo(t,...e){const n=St(ao,...e);try{return t.valueOf(n)}finally{n.release()}}const co=e(n.float);function lo(t,e){const n=St(co,t);try{return e.valueOf(n)}finally{n.release()}}function ho(t,e,n){if(l(e)&&e.isOne())return t;if(h(e)&&e.isOne())return lo(t,n);if(k(e)&&e.isOne())return Yn(n,t,e.inv());if(_t(t)&&_t(e),b(t)&&b(e))return function(t,e){return l(t)&&l(e)?t.div(e):e.isZero()?Kt(Ht.Division_by_zero):De((on(t)?t.d:t.toNumber())/(on(e)?e.d:e.toNumber()))}(t,e);{const r=to(e,n);try{return Yn(n,t,r)}finally{r.release()}}}function fo(t,e,n){n.pushDirective(oe.expanding,1);try{return ho(t,e,n)}finally{n.popDirective()}}const po=e(n.pow);function mo(t,e,n){const r=St(po,e,n);try{return t.valueOf(r)}finally{r.release()}}function go(t,e,n){const r=tr(t,n);try{return uo(t,e,r)}finally{r.release()}}class xo extends Error{constructor(t){super(t),this.name="SystemError",console.warn(t,(new Error).stack)}}function yo(t){if(Ft(t))return t;throw new xo}function wo(t,e,n,r){if(t.equals(e))return n;if(Ft(t)){const s=t.car,i=t.cdr,o=s.contains(e),a=i.contains(e);if(o){const t=wo(s,e,n,r);if(a){const s=wo(i,e,n,r);return Mt(t,Ot(s))}return Mt(t,i)}if(a){const t=wo(i,e,n,r);return Mt(s,Ot(t))}return t}if(_t(t)){const s=r.handlerFor(t);return s?s.subst(t,e,n,r):t}return kt}function Eo(t,e){const n=tr(e,S),r=wo(t,S,n,e);return e.valueOf(r)}const vo=e(n.testeq);function Do(t,e,n){const r=St(vo,t,e);try{return n.valueOf(r)}finally{r.release()}}const bo=e(n.iszero);function Ao(t,e){const n=St(bo,t);try{const t=e.valueOf(n);try{if(Vn(t))return t.isTrue();if(l(t))return!t.isZero();throw new jt}finally{t.release()}}finally{n.release()}}const So=e(n.rect);function _o(t,e){const n=St(So,t);try{return e.valueOf(n)}finally{n.release()}}var ko,Fo;function Co(t){if(function(t){return Ft(t)||_t(t)}(t))return t;throw new jt}class To{constructor(){ko.set(this,[]),Fo.set(this,1)}addRef(){var t;Ut(this,Fo,(t=Rt(this,Fo,"f"),++t),"f")}release(){var t;if(Ut(this,Fo,(t=Rt(this,Fo,"f"),--t),"f"),0==Rt(this,Fo,"f"))for(let t=0;t<Rt(this,ko,"f").length;t++)Rt(this,ko,"f")[t].release()}push(t){Co(t),t.addRef(),Rt(this,ko,"f").push(t)}get elements(){return Rt(this,ko,"f").map((t=>(t.addRef(),t)))}}function Mo(t,e){t=Tt(t);let n=e.valueOf(Ct(t));return Ft(t)&&(n=t.tail().reduce(((t,n)=>Oo(t,e.valueOf(n),e)),n)),n}function Oo(t,e,n){return function(t,e,n){if(di(t))return function(t,e,n){return t.tail().reduce(((t,r)=>n.add(t,Oo(r,e,n))),F)}(t,e,n);if(A(t))return function(t,e,n){return t.map((t=>Oo(t,e,n)))}(t,e,n);if(t.contains(e))return F;return t}(t,e,n)}function No(t){return 3===t.length}function Bo(t){return function(e){return hi(e,t)&&No(e)}}function Lo(t){return Bo(e(n.multiply))(t)}function qo(t,e,n){const r=new To;let s=t;for(;;){const t=n.valueOf(wo(s,e,F,n));if(r.push(t),s=s.equals(t)?F:n.valueOf(uo(i=n,s,tr(i,t))),s.equals(F))try{return r.elements}finally{r.release()}s.equals(e)?s=_:Ft(s)&&Io(s,e)?s=s.lhs:(s=fo(s,e,n),s=n.valueOf(s))}var i}function Io(t,e){return!!Lo(t)&&t.rhs.equals(e)}function Po(t,r){const s=Ro(t,r),i=s.length;return new C([i],function(t,r){const s=t.map((function(t,e){return{value:t,index:e}}));s.sort((function(t,s){const i=r.compareFn(e(n.multiply))(t.value,s.value);return r.isscalar(t.value)||r.isscalar(s.value)?i:t.index-s.index}));const i=s.map((function(t){return t.value}));return i}(s,r))}function Ro(t,e){const n=[];if(b(t))n.push(...ca(Qt(t)));else if(Ft(t)&&di(t))n.push(...function(t,e){const n=Ft(t)?t.tail().reduce((function(t,n){return la(t,n,e)})):Ct(t),r=[];let s=n;if(Qn(s,e))return r.push(t,_),r;if(b(s))r.push(...ca(Qt(s)));else if(mi(s)){const t=Tt(s);b(Ct(t))?r.push(...ca(Qt(Ct(t)))):r.push(Ct(t),_),Ft(t)&&t.tail().forEach((t=>r.push(t,_)))}else r.push(s,_);s=to(s,e);const i=Ft(t)?t.tail().reduce(((t,n)=>uo(e,t,Yn(e,s,n))),F):Tt(t);return r.push(i,_),r}(t,e));else if(mi(t)){let e=Tt(t);if(b(Ct(e))&&(n.push(...ca(Qt(Ct(e)))),e=Tt(e)),Ft(e)){const t=[...e].map((t=>gi(t)?[Si(t),Fi(t)]:[t,_]));n.push(...t.flat())}}else gi(t)?n.push(Si(t),Fi(t)):n.push(t,_);const r=n.length;return n.push(_),Uo(n,0,r,e),n.slice(r)}function Uo(t,e,n,r){const s=t.pop();if(e===n)return void t.push(s);const i=t[e+0],o=Qt(t[e+1]);if(!isNaN(o))for(let u=0;u<=Math.abs(o);u++)t.push(Yn(r,s,mo(r,i,y(((a=o)<0?-1:a>0?1:0)*u)))),Uo(t,e+2,n,r);var a}function $o(t,e,n){return Ze(zo,t,e,n)}function zo(t,e,n){const r=ho(la(t,e,n),t,n);return to(ho(r,e,n),n)}function Wo(t,e){const n=e.valueOf(t.item1),r=e.valueOf(t.item2),s=e.valueOf(t.item3);return s.isnil?Xo(n,r,js,e):Xo(n,r,s,e)}function Xo(t,e,n,r){const s=qo(t,n,r);let i=s.length-1;const o=qo(e,n,r),a=o.length-1;let u=i-a,c=F;for(;u>=0;){const t=ho(s[i],o[a],r);for(let e=0;e<=a;e++)s[u+e]=go(r,s[u+e],Yn(r,o[e],t));c=uo(r,c,Yn(r,t,mo(r,n,y(u)))),i--,u--}return c}function Ko(t){if(void 0===t)throw new Error("expr must be defined.");Je.stack[Je.tos++]=t}function Ho(){if(0===Je.tos)throw new xo("stack underflow");const t=Je.stack[--Je.tos];return Je.stack[Je.tos]=null,t}function Jo(t){for(;t.length>0;)Ko(t.shift())}function Go(t,e,n){const r=function(t,e){return t};Yi(t)&&Ge("floating point numbers in polynomial");const s=qo(t,e,n);for(let t=0;t<s.length;t++);const i=function(t,e){let n=_;for(const r of t)n=$o(Da(r,e),n,e);for(let r=0;r<t.length;r++)t[r]=Yn(e,n,t[r]);const r=to(n,e);return r}(s,n);for(let t=0;t<s.length;t++);let o,a,u,c="ℝ",l=null,h=s.length-1,f=i;for(;h>0;){let t=!1,i=!1;if(Ao(s[0],n)?(o=_,a=F):"ℝ"===c?[i,o,a]=Vo(s,h,e,o,a,n):"ℂ"===c&&([t,o]=jo(l,s,h,n)),"ℝ"===c){if(!1===i){c="ℂ";continue}{for(u=uo(n,Yn(n,o,e),a),f=no(f,u,n),Qo(o,a,s,h,n);h&&Ao(s[h],n);)h--;let t=F;for(let r=0;r<=h;r++)t=uo(n,t,Yn(n,s[r],mo(n,e,y(r))));l=t}}else if("ℂ"===c){if(!1===t)break;{u=Yn(n,go(n,o,e),go(n,Eo(o,n),e));const t=f;if(f=no(f,u,n),null==l){let t=F;for(let r=0;r<=h;r++)t=uo(n,t,Yn(n,s[r],mo(n,e,y(r))));l=t}const i=l;l=Xo(i,u,e,n);if(!Do(Yn(n,l,u),i,n)){Ko(t);const e=je(xa,i,n);return r(no(Ho(),e,n))}for(let t=0;t<=h;t++)s.pop();s.push(...qo(l,e,n)),h-=2}}}let p=F;for(let t=0;t<=h;t++)p=uo(n,p,Yn(n,s[t],mo(n,e,y(t))));const d=je(xa,p,n);return h>0&&oo(s[h])?r(no(je((function(t,e){return tr(e,t)}),f,n),tr(n,d),n)):r(no(f,d,n))}function Vo(t,e,n,r,s,i){const o=Je.tos,a=Je.tos;Jo(Ro(t[e],i));const u=Je.tos-a,c=Je.tos;Jo(Ro(t[0],i));const l=Je.tos-c;for(let n=0;n<u;n++)for(let u=0;u<l;u++){r=Je.stack[a+n];const l=tr(i,ho(s=Je.stack[c+u],r,i));if(Ao(Zo(l,t,e,i),i))return Ve(o),[!0,r,s];s=tr(i,s);if(Ao(Zo(tr(i,l),t,e,i),i))return Ve(o),[!0,r,s]}return Ve(o),[!1,r,s]}function jo(t,e,n,r){let s,i,o;if(n<=2)return[!1,s];const a=Je.tos;if(s=_o(mo(r,g,Xn(2,3)),r),i=s,Ko(i),o=Zo(i,e,n,r),Ao(o,r))return Ve(a),[!0,s];if(s=_o(mo(r,_,Xn(2,3)),r),i=s,Ko(i),o=Zo(i,e,n,r),Ao(o,r))return Ve(a),[!0,s];for(let t=-10;t<=10;t++)for(let i=1;i<=5;i++){s=_o(uo(r,y(t),Yn(r,y(i),S)),r);const o=s;Ko(o);if(Ao(Zo(o,e,n,r),r))return Ve(a),[!0,s]}return Ve(a),[!1,s]}function Qo(t,e,n,r,s){let i=F;for(let o=r;o>0;o--){const r=ho(n[o],t,s);n[o]=i,i=r,n[o-1]=go(s,n[o-1],Yn(s,i,e))}n[0]=i}function Zo(t,e,n,r){!function(t){const e=function(t){if(Number.isInteger(t))return t;throw new jt}(t);if(e>=0)return e;throw new jt}(n);let s=F;for(let i=n;i>=0;i--)s=uo(r,Yn(r,s,t),e[i]);return s}function Yo(t,e){return mn(t,e)}function ta(t){return t.isProbablePrime()}function ea(t,e){return t.compare(e)}ko=new WeakMap,Fo=new WeakMap;let na=vn(0);function ra(t){if(Vi(t,0)||Vi(t,1)||Vi(t,-1))return t;na=t.a;const e=function(){const t=[];na.isNegative()&&(na=Un(na),t.push(Bn));for(let e=0;e<1e4;e++)if(t.push(...sa(e)),0===na.compare(1))return t;return t.push(...function(){const t=[],e=Pn(1);let n=Pn(5),r=Pn(2),s=1,i=1;for(;;){if(ta(na))return t.push(ia(na,1)),t;for(;;){let o=r.subtract(n);o=Un(o);const a=Yo(o,na);if(!a.equals(1)){if(t.push(ia(a,1)),0===ea(a,na))return t;o=en(na,a),na=o,o=nn(n,na),n=o,o=nn(r,na),r=o;break}0==--s&&(r=n,i*=2,s=i),o=tn(n,n),n=o.add(e),o=nn(n,na),n=o}}}()),t}();return e.length,1===e.length?e[0]:e.length>1?Mt(is,St(...e)):kt}function sa(t){const e=[];let n;const r=Pn(ni[t]);let s=0;for(;;){if(0===na.compare(1))return s&&e.push(ia(r,s)),e;let t;if([n,t]=Array.from(rn(na,r)),!t.isZero())break;s++,na=n}return s&&e.push(ia(r,s)),-1===ea(n,r)&&(e.push(ia(na,1)),na=Pn(1)),e}function ia(t,e){let n=new E(t,vn.one);return e>1&&(n=St(cs,n,new E(Pn(e),vn.one))),n}function oa(t,e,n,r){const s=ua(e,n,r);mi(s)?t.push(...s.tail()):t.push(s)}function aa(t,e,n){return l(t)&&t.isInteger()?ra(t):ua(t,e,n)}function ua(t,e,n){return t.contains(e)&&Ri(t,e)&&D(e)?Go(t,e,n):t}function ca(t){isNaN(t)&&Ge("number too big to factor");const e=[];t<0&&(t=-t);for(let n=0;n<ti;n++){const r=ni[n];if(r>t/r)break;let s=0;for(;t%r==0;)t/=r,s++;s&&(e.push(y(r)),e.push(y(s)))}return t>1&&(e.push(y(t)),e.push(_)),e}function la(t,e,n){return Ze(ha,t,e,n)}function ha(t,e,n){if(t.equals(e))return t;if(l(t)&&l(e))return t.gcd(e);const r=fa(t,e);return r?function(t,e,n,r){let s=ua(t,n,r),i=ua(e,n,r);(mi(s)||mi(i))&&(mi(s)||(s=St(is,s,_)),mi(i)||(i=St(is,i,_)));if(mi(s)&&mi(i))return pa(s,i,r);return da(s,i,r)}(t,e,r,n):di(t)&&di(e)?function(t,e,n){if(yo(t),yo(e),ui(t)!==ui(e))return _;const r=Ft(t)?t.tail().reduce((function(t,e){return la(t,e,n)})):Ct(Tt(t)),s=Ft(e)?e.tail().reduce((function(t,e){return la(t,e,n)})):Ct(Tt(e)),i=ho(t,r,n),o=ho(e,s,n);if(i.equals(o))return Yn(n,i,la(r,s,n));return _}(t,e,n):(di(t)&&(t=ma(t,n)),di(e)&&(e=ma(e,n)),mi(t)?function(t,e,n){return t.tail().reduce(((t,r)=>Yn(n,t,la(r,e,n))),_)}(t,e,n):mi(e)?function(t,e,n){return e.tail().reduce(((e,r)=>Yn(n,e,la(t,r,n))),_)}(t,e,n):mi(t)&&mi(e)?pa(t,e,n):da(t,e,n))}function fa(t,e){const n=Ii(t,null);return!!n&&(!!Ii(e,n)&&n)}function pa(t,e,n){const r=t.rest,s=e.rest;return[...r].reduce(((t,e)=>Yn(n,t,[...s].reduce(((t,r)=>Yn(n,t,la(e,r,n))),_))),_)}function da(t,e,n){let r,s;if(gi(t)?(r=Fi(t),t=Si(t)):r=_,gi(e)?(s=Fi(e),e=Si(e)):s=_,!t.equals(e))return _;if(b(r)&&b(s)){return mo(n,t,Jn(r,s)<0?r:s)}const i=ho(r,s,n);if(b(i)){const e=Si(r),i=mi(r)&&b(e)?e:_,o=Si(s);return mo(n,t,Jn(i,mi(s)&&b(o)?o:_)<0?r:s)}const o=go(n,r,s);if(!b(o))return _;return mo(n,t,li(o)?r:s)}function ma(t,e){return t.tail().reduce((function(t,n){return la(t,n,e)}))}function ga(t,e){return je(xa,t,e)}function xa(t,e){if(!di(t))return t;const n=to(t.tail().reduce((function(t,n){return la(t,n,e)})),e),r=function(t,e){return Qe((function(t){return e.valueOf(t)}),t,e)}(t.tail().reduce(((t,r)=>uo(e,t,no(n,r,e))),F),e);return ho(r,n,e)}function ya(t,e){e.pushDirective(oe.factoring,1);try{return function(t,e){if(A(t))return function(t,e){if(!A(t))return t;const n=t.mapElements((function(t){return ya(t,e)}));return t.withElements(n)}(t,e);if(!di(t))return t;const n=function(t,e){if(di(t))return t.tail().reduce(((t,n)=>wa(n,t,e)),_);return wa(t,_,e)}(t,e);let r=F;Ft(t)&&(r=t.tail().reduce(((t,r)=>uo(e,t,Yn(e,n,r))),r));const s=ga(r,e),i=ho(s,n,e);return i}(t,e)}finally{e.popDirective()}}function wa(t,e,n){return mi(t)?t.tail().reduce(((t,e)=>Ea(e,t,n)),e):Ea(t,e,n)}function Ea(t,e,n){if(!gi(t))return e;const r=t;return li(t=Fi(t))||mi(t)&&li(Si(t))?va(e,to(r,n),n):e}function va(t,e,n){return ho(Yn(n,t,e),la(t,e,n),n)}function Da(t,e){if(l(t))return t.denom();if(Ft(t)&&di(t)&&(t=ya(t,e)),Ft(t)){const n=t.cdr;if(mi(t)&&!Qn(Ct(n),e)){const n=function(t,e){const n=function(t){return function(e){return Da(e,t)}}(e),r=t.map(n);return r}(t.tail(),e);return ro(n,e)}if(gi(t)&&oo(t.expo))return to(t,e)}return _}function ba(t,e){const n=t.argList;try{const t=n.head;try{const n=e.valueOf(t);try{return Aa(n,e)}finally{n.release()}}finally{t.release()}}finally{n.release()}}function Aa(t,e){return di(t)&&(t=ya(t,e)),mi(t)&&!Qn(Ct(Tt(t)),e)?ro(t.tail().map((function(t){return Aa(t,e)})),e):l(t)?zn(t):gi(t)&&oo(Fi(t))?bn:t}function Sa(t){return t instanceof T}function _a(t){return!!Sa(t)&&We.equalsSym(t)}const ka=e(n.E);function Fa(t){if(D(t))return ka.equals(t);if(gi(t)){const e=t.lhs,n=t.rhs;return!(!b(n)||!n.isOne())&&Fa(e)}return!1}const Ca=p("last"),Ta=p("tty");function Ma(t,e){let n;if(e.getDirective(oe.printMode)===He.EcmaScript||e.getDirective(oe.renderFloatAsEcmaScript))return`${t}`;if(e.getDirective(oe.forceFixedPrintout)){const r=e.getDirective(oe.maxFixedPrintoutDigits);n=t.toFixed(r),n=n.replace(/(\.\d*?[1-9])0+$/gm,"$1"),n=n.replace(/\.0+$/gm,""),-1===n.indexOf(".")&&(n+=".0"),parseFloat(n)!==t&&(n=t.toFixed(r)+"...")}else n=""+t,n=e.getDirective(oe.printMode)===He.LaTeX?/\d*\.\d*e.*/gm.test(n)?n.replace(/e(.*)/gm,"\\mathrm{e}{$1}"):n.replace(/(\d+)e(.*)/gm,"$1.0\\mathrm{e}{$2}"):/\d*\.\d*e.*/gm.test(n)?n.replace(/e(.*)/gm,"*10^($1)"):n.replace(/(\d+)e(.*)/gm,"$1.0*10^($2)");return n}function Oa(t,e,n){if(l(t)){let r="",s=t.a.toString();if(e||"-"===s[0]&&(s=s.substring(1)),n.getDirective(oe.printMode)===He.LaTeX&&t.isFraction()&&(s="\\frac{"+s+"}{"),r+=s,t.isFraction()){n.getDirective(oe.printMode)!==He.LaTeX&&(r+="/");let e=t.b.toString();n.getDirective(oe.printMode)===He.LaTeX&&(e+="}"),r+=e}return r}if(h(t)){const r=Ma(t.d,n);return e?r:"-"===r[0]?r.substring(1):r}throw new Error(`print_number(p = ${t})`)}function Na(t,r){if(Ft(t)){let e="";for(e+="(",e+=Na(Ct(t),r),t=Tt(t);Ft(t);)e+=" ",e+=Na(Ct(t),r),t=Tt(t);return t!==kt&&(e+=" . ",e+=Na(t,r)),e+=")",e}if(!_t(t)){if(t.isnil){return Zt(r.handlerFor(t).dispatch(t,e(n.sexpr),kt,r))}throw new Error}{const s=r.handlerFor(t).dispatch(t,e(n.sexpr),kt,r);try{return Zt(s)}finally{s.release()}}}const Ba=e(n.E),La=e(n.IMU),qa=e(n.PI),Ia=e(n.testeq),Pa=e(n.component);function Ra(t){switch(t){case He.Ascii:return Ls;case He.Human:return Rs;case He.LaTeX:return Is;case He.Infix:return qs;case He.SExpr:return Ps;default:throw new jt}}function Ua(t,e){return function(t){if(l(t)&&(t.isNegative()||t.isFraction()))return!0;if(h(t)&&t.isNegative())return!0;if(di(t))return!0;if(mi(t))return!0;if(gi(t))return!0;return!1}(t)?`(${Wa(t,e)})`:Wa(t,e)}function $a(t,e){return l(t)&&t.isFraction()||di(t)||mi(t)||gi(t)?`(${Wa(t,e)})`:Wa(t,e)}function za(t,e,n){let r="";const s=Si(t);let i=Fi(t);return Li(i)?(r+=Ua(s,n),r):(1===e&&(r+="("),i=tr(n,i),r+=tu(s,i,n),1===e&&(r+=")"),r)}function Wa(t,e){return function(t,e){let n="";if(di(t))for(t=Tt(t),"-"===Xa(Ct(t))&&(n+="-"),n+=Ha(Ct(t),e),t=Tt(t);Ft(t);)"+"===Xa(Ct(t))?e.getDirective(oe.printMode)===He.Human?n+=" + ":n+="+":e.getDirective(oe.printMode)===He.Human?n+=" - ":n+="-",n+=Ha(Ct(t),e),t=Tt(t);else"-"===Xa(t)&&(n+="-"),n+=Ha(t,e);return n}(t,e)}function Xa(t){if(Ft(t)&&mi(t)){const e=Ct(t.cdr);if(b(e)&&e.isNegative())return"-"}return b(t)&&t.isNegative()?"-":"+"}function Ka(t,e){let n="",r="",s=Tt(t);Li(Ct(s))&&(s=Tt(s));let i=!1;b(Ct(s))&&(i=!0);let o=!1;e.getDirective(oe.printMode)===He.LaTeX&&Ft(Tt(s))&&function(t){return l(t)&&t.isFraction()&&oi(t.a.abs(),1)}(Ct(s))&&(o=!0,n=Ct(s).b.toString());let a="";for(o?(r=a,a=""):a+=Ja(Ct(s),!1,!1,e),s=Tt(s);Ft(s);)e.getDirective(oe.printMode)===He.LaTeX&&i&&Ai(s).equals(cs)&&b(Ct(Tt(Ct(s))))&&(Gi(Ct(Tt(Tt(Ct(s)))))||(a+=" \\cdot ")),a+=nu(e),a+=Ja(Ct(s),!1,!0,e),i=!1,b(Ct(s))&&(i=!0),s=Tt(s);return o&&(a=r+"\\frac{"+a+"}{"+n+"}"),a}function Ha(t,e){return Ft(t)&&mi(t)?function(t){let e=t.cdr;for(;Ft(e);){if(ru(e.car))return!0;e=e.cdr}return!1}(t)?function(t,e){let n,r,s="",i=0,o=0,a=0,u=t.cdr,c=Ct(u);for(l(c)?(n=zn(c).abs(),r=Wn(c),Qn(n,e)||o++,Qn(r,e)||a++,u=Tt(u)):(n=_,r=_);Ft(u);)c=Ct(u),ru(c)?a++:o++,u=Tt(u);if(e.getDirective(oe.printMode)===He.LaTeX&&(s+="\\frac{"),0===o)s+="1";else for(i=0,u=Tt(t),l(Ct(u))&&(u=Tt(u)),Qn(n,e)||(s+=eu(n,!1,!1,e),i=1);Ft(u);)c=Ct(u),ru(c)||(i&&(s+=nu(e)),s+=eu(c,!1,!1,e),i=1),u=Tt(u);for(e.getDirective(oe.printMode)===He.LaTeX?s+="}{":e.getDirective(oe.printMode)===He.Human?s+=" / ":s+="/",a>1&&e.getDirective(oe.printMode)!==He.LaTeX&&(s+="("),i=0,u=Tt(t),l(Ct(u))&&(u=Tt(u)),Qn(r,e)||(s+=eu(r,!1,!1,e),i=1);Ft(u);)c=Ct(u),ru(c)&&(i&&(s+=nu(e)),s+=za(c,a,e),i=1),u=Tt(u);return a>1&&e.getDirective(oe.printMode)!==He.LaTeX&&(s+=")"),e.getDirective(oe.printMode)===He.LaTeX&&(s+="}"),s}(t,e):Ka(t,e):Ja(t,!1,!1,e)}function Ja(t,e,n,r){if(Ft(t)&&yi(t)){let e=t.argList;if(Ft(e)){let t=Va(e.car,!1,!1,r);for(e=e.cdr;Ft(e);)t+=Ga(r),t+=Va(Ct(e),!1,!0,r),e=e.cdr;return t}throw new Error}return Va(t,e,n,r)}function Ga(t){return t.getDirective(oe.printMode)===He.LaTeX?" \\wedge ":t.getDirective(oe.printMode)===He.Human?" ^ ":"^"}function Va(t,e,n,r){if(Ft(t)&&wi(t)){let e=t.argList;if(Ft(e)){let t=eu(e.car,!1,!1,r);for(e=e.cdr;Ft(e);)t+=ja(r),t+=eu(Ct(e),!1,!0,r),e=e.cdr;return t}throw new Error}if(Ft(t)&&function(t){return Ft(t)&&hi(t,Ue)}(t)){let e=t.argList;if(Ft(e)){let t=eu(e.car,!1,!1,r);for(e=e.cdr;Ft(e);)t+=Qa(r),t+=eu(Ct(e),!1,!0,r),e=e.cdr;return t}throw new Error}if(Ft(t)&&function(t){return Ft(t)&&hi(t,$e)}(t)){let e=t.argList;if(Ft(e)){let t=eu(e.car,!1,!1,r);for(e=e.cdr;Ft(e);)t+=Za(r),t+=eu(Ct(e),!1,!0,r),e=e.cdr;return t}throw new Error}return eu(t,e,n,r)}function ja(t){return t.getDirective(oe.printMode)===He.LaTeX?" \\mid ":t.getDirective(oe.printMode)===He.Human?" | ":"|"}function Qa(t){return t.getDirective(oe.printMode)===He.LaTeX?" \\ll ":t.getDirective(oe.printMode)===He.Human?" << ":"<<"}function Za(t){return t.getDirective(oe.printMode)===He.LaTeX?" \\gg ":t.getDirective(oe.printMode)===He.Human?" >> ":">>"}function Ya(t,e){let n="";return n+="(",n+=Wa(t,e),n+=")",n}function tu(t,e,n){let r="";if(Qi(e))if(Vi(t,2)){if(n.getDirective(oe.printMode)===He.EcmaScript)return r+="Math.SQRT2",r}else{if(n.getDirective(oe.printMode)===He.LaTeX)return r+="\\sqrt{",r+=Wa(t,n),r+="}",r;if(n.getDirective(oe.printMode)===He.EcmaScript)return r+="Math.sqrt(",r+=Wa(t,n),r+=")",r}if(Vi(n.getBinding(ls,kt),1)&&Fa(t))return n.getDirective(oe.printMode)===He.EcmaScript?(r+="Math.exp(",r+=$a(e,n),r+=")",r):(n.getDirective(oe.printMode)===He.LaTeX?(r+="e^{",r+=Wa(e,n),r+="}"):(r+="exp(",r+=Wa(e,n),r+=")"),r);if(n.getDirective(oe.printMode)===He.EcmaScript)return r+="Math.pow(",r+=Ua(t,n),r+=", ",r+=$a(e,n),r+=")",r;if(function(t,e){if(D(t)){if(t.equals(p("x"))){const t=hs,n=e.getBinding(t,kt);return!(!n.equals(t)&&!n.isnil&&Vi(n,1))}return!0}return!0}(t,n)){if(!Fa(t)){if(b(e)&&e.isMinusOne())return n.getDirective(oe.printMode)===He.LaTeX?r+="\\frac{1}{":n.getDirective(oe.printMode)===He.Human?r+="1 / ":r+="1/",Ft(t)&&n.getDirective(oe.printMode)!==He.LaTeX?(r+="(",r+=Wa(t,n),r+=")"):r+=Wa(t,n),n.getDirective(oe.printMode)===He.LaTeX&&(r+="}"),r;if(oo(e)){n.getDirective(oe.printMode)===He.LaTeX?r+="\\frac{1}{":n.getDirective(oe.printMode)===He.Human?r+="1 / ":r+="1/";const s=tr(n,e);return Ft(t)&&n.getDirective(oe.printMode)!==He.LaTeX?(r+="(",r+=tu(t,s,n),r+=")"):r+=tu(t,s,n),n.getDirective(oe.printMode)===He.LaTeX&&(r+="}"),r}}if(Gi(e)&&n.getDirective(oe.printMode)===He.LaTeX){r+="\\sqrt";const s=Da(e,n);return Bi(s)||(r+="[",r+=Wa(s,n),r+="]"),r+="{",r+=tu(t,e=Aa(e,n),n),r+="}",r}}return n.getDirective(oe.printMode)===He.LaTeX&&Qn(e,n)?r+=Wa(t,n):(gi(t)?n.getDirective(oe.printMode)!==He.LaTeX?(r+="(",r+=eu(t,!0,!1,n),r+=")"):r+=eu(t,!0,!1,n):li(t)||di(t)?(r+="(",r+=Wa(t,n),r+=")"):mi(t)?n.getDirective(oe.printMode)!==He.LaTeX?(r+="(",r+=eu(t,!0,!1,n),r+=")"):r+=eu(t,!0,!1,n):yi(t)||wi(t)?(r+="(",r+=Wa(t,n),r+=")"):b(t)&&(Gn(t,F)||Gi(t))?(r+="(",r+=eu(t,!1,!1,n),r+=")"):r+=eu(t,!1,!1,n),n.getDirective(oe.printMode)===He.Human?n.getDirective(oe.useCaretForExponentiation)?r+="^":r+="**":n.getDirective(oe.printMode)===He.LaTeX||n.getDirective(oe.useCaretForExponentiation)?r+="^":r+="**",n.getDirective(oe.printMode)===He.LaTeX?Wa(e,n).length>1?(r+="{",r+=Wa(e,n),r+="}"):r+=Wa(e,n):Ft(e)||Gi(e)||b(e)&&Gn(e,F)?(r+="(",r+=Wa(e,n),r+=")"):r+=eu(e,!1,!1,n)),r}function eu(t,s=!1,i=!1,o){const a=s;if(b(t)){if(i&&Gn(t,F)){let e="";return e+="(",e+=Oa(t,i,o),e+=")",e}return Oa(t,i,o)}if(_t(t)){const r=o.handlerFor(t);switch(o.getDirective(oe.printMode)){case He.Human:return Zt(r.dispatch(t,e(n.human),kt,o));case He.Infix:{const s=r.dispatch(t,e(n.infix),kt,o);if(f(s))return Zt(s);throw M(s)?s:new jt}case He.LaTeX:return Zt(r.dispatch(t,e(n.latex),kt,o));case He.SExpr:return Zt(r.dispatch(t,e(n.sexpr),kt,o));default:throw new Error(`${o.getDirective(oe.printMode)}`)}}if(Ft(t)&&mi(t)){let e="";return a||"-"!==Xa(t)&&o.getDirective(oe.printMode)===He.LaTeX||(o.getDirective(oe.printMode)===He.LaTeX?e+=" \\left (":e+="("),e+=Wa(t,o),a||"-"!==Xa(t)&&o.getDirective(oe.printMode)===He.LaTeX||(o.getDirective(oe.printMode)===He.LaTeX?e+=" \\right ) ":e+=")"),e}if(di(t)){let e="";return a||(e+="("),e+=Wa(t,o),a||(e+=")"),e}if(gi(t))return tu(t.base,t.expo,o);if(Ft(t)){const e=t.opr,n=t.argList;try{if(e.equals(Wr)){let t="";const e=n.item(1);try{if(o.getDirective(oe.printMode)!==He.EcmaScript){const e=n.item(0);try{t+="fn ";t+=Na(e,o),t+=" -> "}finally{e.release()}}return t+=Wa(e,o),t}finally{e.release()}}else if(e.equals(Kr)){let t="";const e=n.item(0);try{if(o.getDirective(oe.printMode)!==He.EcmaScript){const e=n.item(1);try{t+="function ";t+=Na(e,o),t+=" -> "}finally{e.release()}}return t+=Wa(e,o),t}finally{e.release()}}}finally{e.release(),n.release()}}if(Ct(t).equals(us)){let e="";return e+=Wa(ki(t),o),o.getDirective(oe.printMode)===He.LaTeX?e+=" \\rightarrow ":o.getDirective(oe.printMode)===He.Human?e+=" -> ":e+="->",e+=Wa(Ct(Tt(Si(t))),o),e}if(Ct(t).equals(Pa)&&D(Si(t))){let e="";return e+=function(t,e){let n="";if(Ai(t=Tt(t)).equals(nr)||Ai(t).equals(is)||Ai(t).equals(cs)||Ai(t).equals(Ur)?n+=Ya(Ct(t),e):n+=Wa(Ct(t),e),n+="[",t=Tt(t),Ft(t))for(n+=Wa(Ct(t),e),t=Tt(t);Ft(t);)n+=",",n+=Wa(Ct(t),e),t=Tt(t);return n+="]",n}(t,o),e}if(Ft(t)&&xi(t))return function(t,e){let n="";return Gi(t=Si(t))||di(t)||mi(t)||gi(t)||xi(t)?n+=Ya(t,e):n+=Wa(t,e),n+="!",n}(t,o);if(Ft(t)&&pi(t))switch(o.getDirective(oe.printMode)){case He.Human:case He.Infix:return function(t,e){let n="";return n+="abs(",n+=Wa(t.argList.head,e),n+=")",n}(t,o);case He.LaTeX:return function(t,e){let n="";return n+="\\left |",n+=Wa(t.argList.head,e),n+=" \\right |",n}(t,o);default:throw new jt}else{if(Ct(t).equals(Ds)&&o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";return n+="\\sqrt{",n+=Wa(Si(t),e),n+="} ",n}(t,o),e}if(Ei(t)){if(o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";return n+="{",Ft(Si(t))&&(n+="("),n+=Wa(Si(t),e),Ft(Si(t))&&(n+=")"),n+="}",n+="^T",n}(t,o),e}if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="";return n+="transpose(",n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(Ns)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="";return n+="identity(",n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ft(t)&&vi(t)){if(o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";return n+="{",Ft(Si(t))&&(n+="("),n+=Wa(Si(t),e),Ft(Si(t))&&(n+=")"),n+="}",n+="^{-1}",n}(t,o),e}if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="";return n+="inv(",n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else{if(Ct(t).equals(pr)&&o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";return n+="\\binom{",n+=Wa(Si(t),e),n+="}{",n+=Wa(Fi(t),e),n+="} ",n}(t,o),e}if(Ct(t).equals(Sr)&&o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";const r=Ct(Tt(t)),s=t=Tt(t);let i=0;for(;Ft(Tt(Tt(t)));){i++;const r=Tt(Tt(t));n+="\\int^{",n+=Wa(Ct(Tt(r)),e),n+="}_{",n+=Wa(Ct(r),e),n+="} \\! ",t=Tt(r)}n+=Wa(r,e),n+=" \\,",t=s;for(let r=1;r<=i;r++){const s=Tt(t);n+=" \\mathrm{d} ",n+=Wa(Ct(s),e),r<i&&(n+=" \\, "),t=Tt(Tt(s))}return n}(t,o),e}if(wi(t)){if(o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="";return n+=Wa(Si(t),e),n+=" \\cdot ",n+=Wa(Fi(t),e),n}(t,o),e}if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="dot(";return n+=Wa(Si(t),e),n+=", ",n+=Wa(Fi(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(Es)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.sin(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(br)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.cos(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(As)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.tan(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(ar)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.asin(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(ir)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.acos(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(cr)){if(o.getDirective(oe.printMode)===He.EcmaScript){let e="";return e+=function(t,e){let n="Math.atan(";return n+=Wa(Si(t),e),n+=")",n}(t,o),e}}else if(Ct(t).equals(bs)){if(o.getDirective(oe.printMode)===He.LaTeX){let e="";return e+=function(t,e){let n="\\sum_{";return n+=