(*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l))

(sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l))))

(*.f64 (/.f64 M 2) (/.f64 D d))

(*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))

(((-.f64 (+.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 1) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 l h)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 l (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h) l) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (neg.f64 h)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 h) (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h) 1) l) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h) (pow.f64 (cbrt.f64 l) 2)) (cbrt.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) h) (sqrt.f64 l)) (sqrt.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) (sqrt.f64 (/.f64 h l))) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 4))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (exp.f64 (/.f64 h l)) (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 1 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 1/4) (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 1/4)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (sqrt.f64 (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) 2)) (sqrt.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 1 1/2) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) 2) 1/2) (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) 1/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 4)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 1))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (sqrt.f64 (-.f64 1 (pow.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)) 3))) (sqrt.f64 (+.f64 (+.f64 1 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 4))) (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 1/2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 3/2) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 1/4) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((fabs.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 3/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 1/2 (log1p.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (neg.f64 (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (neg.f64 (/.f64 h l)))) 1/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (*.f64 1/2 (log1p.f64 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (neg.f64 (/.f64 h l))))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (*.f64 2 (/.f64 d D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (*.f64 (/.f64 d D) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (/.f64 (*.f64 2 d) D)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (/.f64 2 (/.f64 D d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M 1/2) (/.f64 d D)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 D (*.f64 (/.f64 2 M) d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 D (*.f64 d (/.f64 2 M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 D d) (/.f64 2 M)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (*.f64 (/.f64 2 M) (/.f64 d D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (*.f64 (/.f64 d D) (/.f64 2 M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 (*.f64 2 d) (*.f64 M D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 d (*.f64 M (*.f64 1/2 D)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 2 (/.f64 M (/.f64 d D)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M D) (*.f64 2 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 M) (*.f64 (/.f64 d D) -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 D) (*.f64 (/.f64 2 M) (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M (*.f64 1/2 D)) d) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 M (/.f64 d D)) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M (neg.f64 D)) (*.f64 2 (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) D) (*.f64 -2 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) 1) (*.f64 -2 (/.f64 d D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) (neg.f64 D)) (*.f64 -2 (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 D (neg.f64 M)) (*.f64 d -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) M) (*.f64 (neg.f64 d) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) 1) (*.f64 (neg.f64 d) (/.f64 2 M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) (neg.f64 M)) (*.f64 (neg.f64 d) -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 M D)) (neg.f64 (*.f64 2 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 M (*.f64 1/2 D))) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (/.f64 M (/.f64 d D))) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (*.f64 M 1/2) (neg.f64 D)) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (/.f64 D d) (neg.f64 M)) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) (/.f64 D d)) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) (*.f64 M 1/2)) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 M (*.f64 1/2 D)) 1) d) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 M (*.f64 1/2 D)) (pow.f64 (cbrt.f64 d) 2)) (cbrt.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 M (*.f64 1/2 D)) (sqrt.f64 d)) (sqrt.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) 1/2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 M (*.f64 1/2 (/.f64 D d)))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (*.f64 M (*.f64 1/2 (/.f64 D d)))) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((fabs.f64 (*.f64 M (*.f64 1/2 (/.f64 D d)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (sqrt.f64 (exp.f64 M)) (/.f64 D d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 M (*.f64 1/2 (/.f64 D d)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 M 1/2) 3) (pow.f64 (/.f64 D d) 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (/.f64 D d) 3) (pow.f64 (*.f64 M 1/2) 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 M (*.f64 1/2 (/.f64 D d)))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0)) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0)) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (*.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) (*.f64 w0 w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (exp.f64 w0) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 3/2) (pow.f64 w0 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 w0 3) (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l))) 3/2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0)) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 M (*.f64 1/2 (/.f64 D d))) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))) (*.f64 (/.f64 M 2) (/.f64 D d)) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M 2) (/.f64 D d)) 2) (/.f64 h l)))))) #f)))

(*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l))

(*.f64 (/.f64 M d) (/.f64 D 2))

(sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l))))

(*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))

(((-.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 1) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 l h)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 l (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h) l) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (neg.f64 h)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 h) (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2)) (neg.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h) 1) l) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h) (pow.f64 (cbrt.f64 l) 2)) (cbrt.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) h) (sqrt.f64 l)) (sqrt.f64 l)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) (sqrt.f64 (/.f64 h l))) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 4))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (exp.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (*.f64 d (/.f64 2 D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (*.f64 (/.f64 2 D) d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (/.f64 (*.f64 d 2) D)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 M (/.f64 d (*.f64 D 1/2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 M d) (/.f64 2 D)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 D (*.f64 (/.f64 d M) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 D (*.f64 2 (/.f64 d M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 D 1/2) (/.f64 d M)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (*.f64 (/.f64 d M) (/.f64 2 D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (*.f64 (/.f64 2 D) (/.f64 d M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 (*.f64 d 2) (*.f64 M D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 2 (*.f64 (/.f64 M d) D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 1 (/.f64 d (*.f64 (*.f64 M D) 1/2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M D) (*.f64 d 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 M) (*.f64 (/.f64 2 D) (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 D) (*.f64 (/.f64 d M) -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (/.f64 M d) D) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (*.f64 M D) 1/2) d) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 M (neg.f64 D)) (*.f64 d -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) D) (*.f64 (neg.f64 d) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) 1) (*.f64 (neg.f64 d) (/.f64 2 D))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) (neg.f64 D)) (*.f64 (neg.f64 d) -2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 D (neg.f64 M)) (*.f64 2 (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) M) (*.f64 -2 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) 1) (*.f64 -2 (/.f64 d M))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) (neg.f64 M)) (*.f64 -2 (neg.f64 d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 M D)) (neg.f64 (*.f64 d 2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 (/.f64 M d) D)) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (neg.f64 (*.f64 (*.f64 M D) 1/2)) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (/.f64 M d) (neg.f64 D)) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (*.f64 D 1/2) (neg.f64 M)) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 M) (*.f64 D 1/2)) (neg.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (*.f64 (neg.f64 D) (/.f64 M d)) -2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (*.f64 M D) 1/2) 1) d) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (*.f64 M D) 1/2) (pow.f64 (cbrt.f64 d) 2)) (cbrt.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (/.f64 (*.f64 (*.f64 M D) 1/2) (sqrt.f64 d)) (sqrt.f64 d)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) 1/2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2))) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((fabs.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (sqrt.f64 (exp.f64 D)) (/.f64 M d))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (/.f64 M d) 3) (pow.f64 (*.f64 D 1/2) 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 D 1/2) 3) (pow.f64 (/.f64 M d) 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 1 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 1/4) (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 1/4)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (sqrt.f64 (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) 2)) (sqrt.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 1 1/2) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((*.f64 (pow.f64 (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) 2) 1/2) (pow.f64 (cbrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) 1/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 4)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 1))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((/.f64 (sqrt.f64 (-.f64 1 (pow.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)) 3))) (sqrt.f64 (+.f64 (+.f64 1 (*.f64 (pow.f64 (/.f64 h l) 2) (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 4))) (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 1/2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 3/2) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 1/4) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((fabs.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 3/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 1/2 (log1p.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (neg.f64 (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (neg.f64 (/.f64 h l)))) 1/2)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (*.f64 1/2 (log1p.f64 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (neg.f64 (/.f64 h l))))) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0))) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0) 1) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0)) 3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0) 3) 1/3) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0)) 2) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((sqrt.f64 (*.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) (*.f64 w0 w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (pow.f64 (exp.f64 w0) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0)))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0) 3)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 3/2) (pow.f64 w0 3))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 w0 3) (pow.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l))) 3/2))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (log.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0)) 1)) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (*.f64 D 1/2)) 2) (/.f64 h l)))) w0))) #(struct:rr-input (#<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule pow1> #<rule add-exp-log> #<rule add-log-exp> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-sqr-sqrt> #<rule *-un-lft-identity> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule prod-diff> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule inv-pow> #<rule pow-base-0> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule unpow0> #<rule pow-base-1> #<rule unpow1> #<rule unpow-1> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule rem-exp-log> #<rule rem-log-exp> #<rule cube-unmult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule sqr-neg> #<rule sqr-abs> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule div-sub> #<rule times-frac> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule flip-+> #<rule flip--> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule count-2> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule +-commutative> #<rule *-commutative>) ((*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)) (*.f64 (/.f64 M d) (/.f64 D 2)) (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))) (*.f64 w0 (sqrt.f64 (-.f64 1 (*.f64 (pow.f64 (*.f64 (/.f64 M d) (/.f64 D 2)) 2) (/.f64 h l)))))) #f)))