egglog 2.0.0

(datatype
 M
 (Num BigRat :cost 4294967295)
 (Var String :cost 4294967295)
 (Neq M M :cost 4294967295)
 (Unsound-!= M M :cost 4294967295)
 (Mul M M :cost 4294967295)
 (Unsound-* M M :cost 4294967295)
 (Add M M :cost 4294967295)
 (Unsound-+ M M :cost 4294967295)
 (Sub M M :cost 4294967295)
 (Unsound-- M M :cost 4294967295)
 (Div M M :cost 4294967295)
 (Unsound-/ M M :cost 4294967295)
 (Lt M M :cost 4294967295)
 (Unsound-< M M :cost 4294967295)
 (Lte M M :cost 4294967295)
 (Unsound-<= M M :cost 4294967295)
 (Eq M M :cost 4294967295)
 (Unsound-== M M :cost 4294967295)
 (Gt M M :cost 4294967295)
 (Unsound-> M M :cost 4294967295)
 (Gte M M :cost 4294967295)
 (Unsound->= M M :cost 4294967295)
 (E :cost 4294967295)
 (Unsound-E :cost 4294967295)
 (False :cost 4294967295)
 (Unsound-False :cost 4294967295)
 (Infinity :cost 4294967295)
 (Unsound-Infinity :cost 4294967295)
 (Nan :cost 4294967295)
 (Unsound-Nan :cost 4294967295)
 (Pi :cost 4294967295)
 (Unsound-Pi :cost 4294967295)
 (True :cost 4294967295)
 (Unsound-True :cost 4294967295)
 (Acos M :cost 4294967295)
 (Unsound-Acos M :cost 4294967295)
 (Acosh M :cost 4294967295)
 (Unsound-Acosh M :cost 4294967295)
 (And M M :cost 4294967295)
 (Unsound-And M M :cost 4294967295)
 (Asin M :cost 4294967295)
 (Unsound-Asin M :cost 4294967295)
 (Asinh M :cost 4294967295)
 (Unsound-Asinh M :cost 4294967295)
 (Assert M :cost 4294967295)
 (Unsound-Assert M :cost 4294967295)
 (Atan M :cost 4294967295)
 (Unsound-Atan M :cost 4294967295)
 (Atan2 M M :cost 4294967295)
 (Unsound-Atan2 M M :cost 4294967295)
 (Atanh M :cost 4294967295)
 (Unsound-Atanh M :cost 4294967295)
 (Cast M :cost 4294967295)
 (Unsound-Cast M :cost 4294967295)
 (Cbrt M :cost 4294967295)
 (Unsound-Cbrt M :cost 4294967295)
 (Ceil M :cost 4294967295)
 (Unsound-Ceil M :cost 4294967295)
 (Copysign M M :cost 4294967295)
 (Unsound-Copysign M M :cost 4294967295)
 (Cos M :cost 4294967295)
 (Unsound-Cos M :cost 4294967295)
 (Cosh M :cost 4294967295)
 (Unsound-Cosh M :cost 4294967295)
 (Erf M :cost 4294967295)
 (Unsound-Erf M :cost 4294967295)
 (Erfc M :cost 4294967295)
 (Unsound-Erfc M :cost 4294967295)
 (Error M :cost 4294967295)
 (Unsound-Error M :cost 4294967295)
 (Exp M :cost 4294967295)
 (Unsound-Exp M :cost 4294967295)
 (Exp2 M :cost 4294967295)
 (Unsound-Exp2 M :cost 4294967295)
 (Expm1 M :cost 4294967295)
 (Unsound-Expm1 M :cost 4294967295)
 (Fabs M :cost 4294967295)
 (Unsound-Fabs M :cost 4294967295)
 (Fdim M M :cost 4294967295)
 (Unsound-Fdim M M :cost 4294967295)
 (Floor M :cost 4294967295)
 (Unsound-Floor M :cost 4294967295)
 (Fma M M M :cost 4294967295)
 (Unsound-Fma M M M :cost 4294967295)
 (Fmax M M :cost 4294967295)
 (Unsound-Fmax M M :cost 4294967295)
 (Fmin M M :cost 4294967295)
 (Unsound-Fmin M M :cost 4294967295)
 (Fmod M M :cost 4294967295)
 (Unsound-Fmod M M :cost 4294967295)
 (Hypot M M :cost 4294967295)
 (Unsound-Hypot M M :cost 4294967295)
 (If M M M :cost 4294967295)
 (Unsound-If M M M :cost 4294967295)
 (Lgamma M :cost 4294967295)
 (Unsound-Lgamma M :cost 4294967295)
 (Log M :cost 4294967295)
 (Unsound-Log M :cost 4294967295)
 (Log10 M :cost 4294967295)
 (Unsound-Log10 M :cost 4294967295)
 (Log1p M :cost 4294967295)
 (Unsound-Log1p M :cost 4294967295)
 (Log2 M :cost 4294967295)
 (Unsound-Log2 M :cost 4294967295)
 (Logb M :cost 4294967295)
 (Unsound-Logb M :cost 4294967295)
 (Neg M :cost 4294967295)
 (Unsound-Neg M :cost 4294967295)
 (Not M :cost 4294967295)
 (Unsound-Not M :cost 4294967295)
 (Or M M :cost 4294967295)
 (Unsound-Or M M :cost 4294967295)
 (Pow M M :cost 4294967295)
 (Unsound-Pow M M :cost 4294967295)
 (Pow2 M :cost 4294967295)
 (Unsound-Pow2 M :cost 4294967295)
 (Remainder M M :cost 4294967295)
 (Unsound-Remainder M M :cost 4294967295)
 (Rint M :cost 4294967295)
 (Unsound-Rint M :cost 4294967295)
 (Round M :cost 4294967295)
 (Unsound-Round M :cost 4294967295)
 (Sin M :cost 4294967295)
 (Unsound-Sin M :cost 4294967295)
 (Sinh M :cost 4294967295)
 (Unsound-Sinh M :cost 4294967295)
 (Sqrt M :cost 4294967295)
 (Unsound-Sqrt M :cost 4294967295)
 (Tan M :cost 4294967295)
 (Unsound-Tan M :cost 4294967295)
 (Tanh M :cost 4294967295)
 (Unsound-Tanh M :cost 4294967295)
 (Tgamma M :cost 4294967295)
 (Unsound-Tgamma M :cost 4294967295)
 (Then M :cost 4294967295)
 (Unsound-Then M :cost 4294967295)
 (Trunc M :cost 4294967295)
 (Unsound-Trunc M :cost 4294967295))
(datatype
 MTy
 (Numbinary64 BigRat :cost 125)
 (Numbinary32 BigRat :cost 125)
 (Varbool String :cost 100)
 (Varbinary64 String :cost 125)
 (Varbinary32 String :cost 125)
 (Approx M MTy)
 (Atan2f32Ty MTy MTy :cost 2000)
 (Remainderf32Ty MTy MTy :cost 1000)
 (Cbrtf64Ty MTy :cost 2000)
 (Mulf32Ty MTy MTy :cost 250)
 (Ef32Ty :cost 125)
 (Sinhf32Ty MTy :cost 1750)
 (Neqf64Ty MTy MTy :cost 125)
 (NotTy MTy :cost 100)
 (Log10f32Ty MTy :cost 1175)
 (Truncf64Ty MTy :cost 250)
 (Asinf32Ty MTy :cost 500)
 (Ltf32Ty MTy MTy :cost 125)
 (Fdimf32Ty MTy MTy :cost 750)
 (AndTy MTy MTy :cost 100)
 (TrueTy :cost 100)
 (Fmaf64Ty MTy MTy MTy :cost 375)
 (Sqrtf64Ty MTy :cost 250)
 (Fdimf64Ty MTy MTy :cost 750)
 (Lgammaf64Ty MTy :cost 2250)
 (FalseTy :cost 100)
 (Hypotf32Ty MTy MTy :cost 1700)
 (Log1pf64Ty MTy :cost 1300)
 (Logf64Ty MTy :cost 750)
 (Negf32Ty MTy :cost 125)
 (Erff32Ty MTy :cost 1125)
 (Tanf64Ty MTy :cost 4650)
 (Eqf32Ty MTy MTy :cost 125)
 (Logf32Ty MTy :cost 750)
 (Fminf32Ty MTy MTy :cost 250)
 (Expm1f32Ty MTy :cost 900)
 (Rintf64Ty MTy :cost 300)
 (Subf32Ty MTy MTy :cost 200)
 (Exp2f32Ty MTy :cost 1175)
 (Cbrtf32Ty MTy :cost 2000)
 (Fmodf64Ty MTy MTy :cost 1750)
 (Fmaxf64Ty MTy MTy :cost 250)
 (Atanhf64Ty MTy :cost 450)
 (Log10f64Ty MTy :cost 1175)
 (Infinityf32Ty :cost 125)
 (Nanf64Ty :cost 125)
 (Cosf64Ty MTy :cost 4200)
 (Fminf64Ty MTy MTy :cost 250)
 (Expf32Ty MTy :cost 1375)
 (Lgammaf32Ty MTy :cost 2250)
 (Log2f32Ty MTy :cost 875)
 (Fmaxf32Ty MTy MTy :cost 250)
 (Sinhf64Ty MTy :cost 1750)
 (Truncf32Ty MTy :cost 275)
 (Tanhf64Ty MTy :cost 1000)
 (Ltef64Ty MTy MTy :cost 125)
 (Fmaf32Ty MTy MTy MTy :cost 375)
 (Subf64Ty MTy MTy :cost 200)
 (OrTy MTy MTy :cost 100)
 (Fabsf64Ty MTy :cost 125)
 (Addf64Ty MTy MTy :cost 200)
 (Sinf64Ty MTy :cost 4200)
 (Ceilf64Ty MTy :cost 250)
 (Tanf32Ty MTy :cost 4750)
 (Powf32Ty MTy MTy :cost 2000)
 (Tgammaf64Ty MTy :cost 2625)
 (Iff64Ty MTy MTy MTy :cost 0)
 (Sqrtf32Ty MTy :cost 250)
 (Pif32Ty :cost 125)
 (Nanf32Ty :cost 125)
 (Neqf32Ty MTy MTy :cost 125)
 (Fabsf32Ty MTy :cost 125)
 (Gtef32Ty MTy MTy :cost 125)
 (Logbf32Ty MTy :cost 375)
 (Erfcf64Ty MTy :cost 900)
 (Atanf32Ty MTy :cost 1100)
 (Acoshf64Ty MTy :cost 850)
 (Divf32Ty MTy MTy :cost 350)
 (Gtf32Ty MTy MTy :cost 125)
 (Atan2f64Ty MTy MTy :cost 2000)
 (Roundf64Ty MTy :cost 850)
 (Floorf64Ty MTy :cost 300)
 (Hypotf64Ty MTy MTy :cost 1700)
 (Asinhf32Ty MTy :cost 1125)
 (Negf64Ty MTy :cost 125)
 (Exp2f64Ty MTy :cost 1175)
 (Fmodf32Ty MTy MTy :cost 1750)
 (Ceilf32Ty MTy :cost 250)
 (Ef64Ty :cost 125)
 (Powf64Ty MTy MTy :cost 2000)
 (Atanf64Ty MTy :cost 1100)
 (Gtef64Ty MTy MTy :cost 125)
 (Eqf64Ty MTy MTy :cost 125)
 (Logbf64Ty MTy :cost 350)
 (Mulf64Ty MTy MTy :cost 250)
 (Coshf32Ty MTy :cost 1250)
 (Iff32Ty MTy MTy MTy :cost 0)
 (Floorf32Ty MTy :cost 250)
 (Acosf32Ty MTy :cost 500)
 (Ltef32Ty MTy MTy :cost 125)
 (Divf64Ty MTy MTy :cost 350)
 (Expf64Ty MTy :cost 1375)
 (Roundf32Ty MTy :cost 875)
 (Erfcf32Ty MTy :cost 900)
 (Rintf32Ty MTy :cost 300)
 (Tgammaf32Ty MTy :cost 2625)
 (Acosf64Ty MTy :cost 500)
 (Log1pf32Ty MTy :cost 1300)
 (Expm1f64Ty MTy :cost 900)
 (Asinf64Ty MTy :cost 500)
 (Coshf64Ty MTy :cost 1650)
 (Acoshf32Ty MTy :cost 850)
 (Ltf64Ty MTy MTy :cost 125)
 (Remainderf64Ty MTy MTy :cost 1000)
 (Copysignf64Ty MTy MTy :cost 200)
 (Log2f64Ty MTy :cost 850)
 (Atanhf32Ty MTy :cost 500)
 (Asinhf64Ty MTy :cost 1125)
 (Sinf32Ty MTy :cost 4250)
 (Addf32Ty MTy MTy :cost 200)
 (Pif64Ty :cost 125)
 (Tanhf32Ty MTy :cost 1000)
 (Gtf64Ty MTy MTy :cost 125)
 (Cosf32Ty MTy :cost 4250)
 (InfinityTy :cost 125)
 (Copysignf32Ty MTy MTy :cost 200)
 (Erff64Ty MTy :cost 1125))
(constructor lower (M String) MTy :unextractable)
(constructor lift (MTy) M :unextractable)
(ruleset const-fold)
(ruleset lowering)
(ruleset lifting)
(function unsound () bool :merge (or old new))
(ruleset unsound-rule)
(set (unsound) false)
(rule
 ((= (Num c1) (Num c2)) (!= c1 c2))
 ((set (unsound) true))
 :ruleset
 unsound-rule)
(let $?zero (bigrat (from-string "0") (from-string "1")))
(rewrite (Add (Num x) (Num y)) (Num (+ x y)) :ruleset const-fold)
(rewrite (Sub (Num x) (Num y)) (Num (- x y)) :ruleset const-fold)
(rewrite (Mul (Num x) (Num y)) (Num (* x y)) :ruleset const-fold)
(rule
 ((= e (Div (Num x) (Num y))) (!= $?zero y))
 ((union e (Num (/ x y))))
 :ruleset
 const-fold)
(rewrite (Neg (Num x)) (Num (neg x)) :ruleset const-fold)
(rule
 ((= e (Pow (Num x) (Num y))) (= $?zero x) (> y $?zero))
 ((union e (Num $?zero)))
 :ruleset
 const-fold)
(rule
 ((= e (Pow (Num x) (Num y))) (= $?zero y) (!= $?zero x))
 ((union e (Num (bigrat (from-string "1") (from-string "1")))))
 :ruleset
 const-fold)
(rule
 ((= e (Pow (Num x) (Num y))) (> y $?zero) (!= $?zero x) (= y (round y)))
 ((union e (Num (pow x y))))
 :ruleset
 const-fold)
(rule
 ((= e (Pow (Num x) (Num y))) (> y $?zero) (!= $?zero x) (!= y (round y)))
 ((union e (Num (pow x (round y)))))
 :ruleset
 const-fold)
(rule
 ((= e (Sqrt (Num n))) (sqrt n))
 ((union e (Num (sqrt n))))
 :ruleset
 const-fold)
(rule
 ((= e (Log (Num x))) (= (numer x) (denom x)))
 ((union e (Num $?zero)))
 :ruleset
 const-fold)
(rule
 ((= e (Cbrt (Num x))) (= (numer x) (denom x)))
 ((union e (Num (bigrat (from-string "1") (from-string "1")))))
 :ruleset
 const-fold)
(rewrite (Fabs (Num x)) (Num (abs x)) :ruleset const-fold)
(rewrite (Floor (Num x)) (Num (floor x)) :ruleset const-fold)
(rewrite (Ceil (Num x)) (Num (ceil x)) :ruleset const-fold)
(rewrite (Round (Num x)) (Num (round x)) :ruleset const-fold)
(rule
 ((= e (Atan2 x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Atan2f32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Remainder x y))
  (= tx (lower x "binary32"))
  (= ty (lower y "binary32")))
 ((let t0 "binary32")
  (let et0 (Remainderf32Ty tx ty))
  (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cbrt x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Cbrtf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Mul x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Mulf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (E)))
 ((let t0 "binary32") (let et0 (Ef32Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sinh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Sinhf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Neq x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Neqf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Not x)) (= tx (lower x "bool")))
 ((let t0 "bool") (let et0 (NotTy tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log10 x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Log10f32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Trunc x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Truncf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Asin x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Asinf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lt x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Ltf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fdim x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Fdimf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (And x y)) (= tx (lower x "bool")) (= ty (lower y "bool")))
 ((let t0 "bool") (let et0 (AndTy tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (True)))
 ((let t0 "bool") (let et0 (TrueTy)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Add (Mul x y) z))
  (= tx (lower x "binary64"))
  (= ty (lower y "binary64"))
  (= tz (lower z "binary64")))
 ((let t0 "binary64") (let et0 (Fmaf64Ty tx ty tz)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sqrt x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Sqrtf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fdim x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Fdimf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lgamma x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Lgammaf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (False)))
 ((let t0 "bool") (let et0 (FalseTy)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sqrt (Add (Mul x x) (Mul y y))))
  (= tx (lower x "binary32"))
  (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Hypotf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log (Add (Num (bigrat (from-string "1") (from-string "1"))) x)))
  (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Log1pf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Logf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Neg x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Negf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Erf x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Erff32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tan x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Tanf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Eq x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Eqf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Logf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmin x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Fminf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub (Exp x) (Num (bigrat (from-string "1") (from-string "1")))))
  (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Expm1f32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Rint x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Rintf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Subf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Exp2 x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Exp2f32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cbrt x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Cbrtf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmod x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Fmodf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmax x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Fmaxf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atanh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Atanhf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log10 x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Log10f64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Infinity)))
 ((let t0 "binary32") (let et0 (Infinityf32Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Nan)))
 ((let t0 "binary64") (let et0 (Nanf64Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cos x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Cosf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmin x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Fminf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Exp x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Expf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lgamma x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Lgammaf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log2 x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Log2f32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmax x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Fmaxf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sinh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Sinhf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Trunc x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Truncf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tanh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Tanhf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lte x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Ltef64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Add (Mul x y) z))
  (= tx (lower x "binary32"))
  (= ty (lower y "binary32"))
  (= tz (lower z "binary32")))
 ((let t0 "binary32") (let et0 (Fmaf32Ty tx ty tz)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Subf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Or x y)) (= tx (lower x "bool")) (= ty (lower y "bool")))
 ((let t0 "bool") (let et0 (OrTy tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fabs x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Fabsf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Add x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Addf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sin x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Sinf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Ceil x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Ceilf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tan x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Tanf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Pow x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Powf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tgamma x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Tgammaf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (If c t f))
  (= tc (lower c "bool"))
  (= tt (lower t "binary64"))
  (= tf (lower f "binary64")))
 ((let t0 "binary64") (let et0 (Iff64Ty tc tt tf)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sqrt x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Sqrtf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Pi)))
 ((let t0 "binary32") (let et0 (Pif32Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Nan)))
 ((let t0 "binary32") (let et0 (Nanf32Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Neq x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Neqf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fabs x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Fabsf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Gte x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Gtef32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Logb x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Logbf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub (Num (bigrat (from-string "1") (from-string "1"))) (Erf x)))
  (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Erfcf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atan x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Atanf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Acosh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Acoshf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Div x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Divf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Gt x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Gtf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atan2 x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Atan2f64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Round x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Roundf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Floor x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Floorf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sqrt (Add (Mul x x) (Mul y y))))
  (= tx (lower x "binary64"))
  (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Hypotf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Asinh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Asinhf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Neg x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Negf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Exp2 x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Exp2f64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Fmod x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Fmodf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Ceil x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Ceilf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (E)))
 ((let t0 "binary64") (let et0 (Ef64Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Pow x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Powf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atan x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Atanf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Gte x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Gtef64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Eq x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Eqf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Logb x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Logbf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Mul x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Mulf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cosh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Coshf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (If c t f))
  (= tc (lower c "bool"))
  (= tt (lower t "binary32"))
  (= tf (lower f "binary32")))
 ((let t0 "binary32") (let et0 (Iff32Ty tc tt tf)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Floor x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Floorf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Acos x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Acosf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lte x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "bool") (let et0 (Ltef32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Div x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Divf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Exp x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Expf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Round x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Roundf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub (Num (bigrat (from-string "1") (from-string "1"))) (Erf x)))
  (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Erfcf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Rint x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Rintf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tgamma x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Tgammaf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Acos x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Acosf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log (Add (Num (bigrat (from-string "1") (from-string "1"))) x)))
  (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Log1pf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sub (Exp x) (Num (bigrat (from-string "1") (from-string "1")))))
  (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Expm1f64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Asin x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Asinf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cosh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Coshf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Acosh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Acoshf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Lt x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Ltf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Remainder x y))
  (= tx (lower x "binary64"))
  (= ty (lower y "binary64")))
 ((let t0 "binary64")
  (let et0 (Remainderf64Ty tx ty))
  (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Copysign x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "binary64") (let et0 (Copysignf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Log2 x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Log2f64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atanh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Atanhf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Asinh x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Asinhf64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Sin x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Sinf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Add x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Addf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Pi)))
 ((let t0 "binary64") (let et0 (Pif64Ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Tanh x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Tanhf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Gt x y)) (= tx (lower x "binary64")) (= ty (lower y "binary64")))
 ((let t0 "bool") (let et0 (Gtf64Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Cos x)) (= tx (lower x "binary32")))
 ((let t0 "binary32") (let et0 (Cosf32Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Infinity)))
 ((let t0 "binary64") (let et0 (InfinityTy)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Copysign x y)) (= tx (lower x "binary32")) (= ty (lower y "binary32")))
 ((let t0 "binary32") (let et0 (Copysignf32Ty tx ty)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Erf x)) (= tx (lower x "binary64")))
 ((let t0 "binary64") (let et0 (Erff64Ty tx)) (union (lower e t0) et0))
 :ruleset
 lowering)
(rule
 ((= e (Atan2f32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Atan2 sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Remainderf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Remainder sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Cbrtf64Ty x)) (= sx (lift x)))
 ((let se (Cbrt sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Mulf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Mul sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Ef32Ty))) ((let se (E)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Sinhf32Ty x)) (= sx (lift x)))
 ((let se (Sinh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Neqf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Neq sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (NotTy x)) (= sx (lift x)))
 ((let se (Not sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log10f32Ty x)) (= sx (lift x)))
 ((let se (Log10 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Truncf64Ty x)) (= sx (lift x)))
 ((let se (Trunc sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Asinf32Ty x)) (= sx (lift x)))
 ((let se (Asin sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ltf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Lt sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fdimf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fdim sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (AndTy x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (And sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (TrueTy))) ((let se (True)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Fmaf64Ty x y z)) (= sx (lift x)) (= sy (lift y)) (= sz (lift z)))
 ((let se (Add (Mul sx sy) sz)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Sqrtf64Ty x)) (= sx (lift x)))
 ((let se (Sqrt sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fdimf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fdim sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Lgammaf64Ty x)) (= sx (lift x)))
 ((let se (Lgamma sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (FalseTy)))
 ((let se (False)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Hypotf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Sqrt (Add (Mul sx sx) (Mul sy sy)))) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log1pf64Ty x)) (= sx (lift x)))
 ((let se (Log (Add (Num (bigrat (from-string "1") (from-string "1"))) sx)))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Logf64Ty x)) (= sx (lift x)))
 ((let se (Log sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Negf32Ty x)) (= sx (lift x)))
 ((let se (Neg sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Erff32Ty x)) (= sx (lift x)))
 ((let se (Erf sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Tanf64Ty x)) (= sx (lift x)))
 ((let se (Tan sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Eqf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Eq sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Logf32Ty x)) (= sx (lift x)))
 ((let se (Log sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fminf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmin sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Expm1f32Ty x)) (= sx (lift x)))
 ((let se (Sub (Exp sx) (Num (bigrat (from-string "1") (from-string "1")))))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Rintf64Ty x)) (= sx (lift x)))
 ((let se (Rint sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Subf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Sub sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Exp2f32Ty x)) (= sx (lift x)))
 ((let se (Exp2 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Cbrtf32Ty x)) (= sx (lift x)))
 ((let se (Cbrt sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fmodf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmod sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fmaxf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmax sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Atanhf64Ty x)) (= sx (lift x)))
 ((let se (Atanh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log10f64Ty x)) (= sx (lift x)))
 ((let se (Log10 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Infinityf32Ty)))
 ((let se (Infinity)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Nanf64Ty))) ((let se (Nan)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Cosf64Ty x)) (= sx (lift x)))
 ((let se (Cos sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fminf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmin sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Expf32Ty x)) (= sx (lift x)))
 ((let se (Exp sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Lgammaf32Ty x)) (= sx (lift x)))
 ((let se (Lgamma sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log2f32Ty x)) (= sx (lift x)))
 ((let se (Log2 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fmaxf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmax sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Sinhf64Ty x)) (= sx (lift x)))
 ((let se (Sinh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Truncf32Ty x)) (= sx (lift x)))
 ((let se (Trunc sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Tanhf64Ty x)) (= sx (lift x)))
 ((let se (Tanh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ltef64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Lte sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fmaf32Ty x y z)) (= sx (lift x)) (= sy (lift y)) (= sz (lift z)))
 ((let se (Add (Mul sx sy) sz)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Subf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Sub sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (OrTy x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Or sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fabsf64Ty x)) (= sx (lift x)))
 ((let se (Fabs sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Addf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Add sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Sinf64Ty x)) (= sx (lift x)))
 ((let se (Sin sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ceilf64Ty x)) (= sx (lift x)))
 ((let se (Ceil sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Tanf32Ty x)) (= sx (lift x)))
 ((let se (Tan sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Powf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Pow sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Tgammaf64Ty x)) (= sx (lift x)))
 ((let se (Tgamma sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Iff64Ty c t f)) (= sc (lift c)) (= st (lift t)) (= sf (lift f)))
 ((let se (If sc st sf)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Sqrtf32Ty x)) (= sx (lift x)))
 ((let se (Sqrt sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Pif32Ty))) ((let se (Pi)) (union (lift e) se)) :ruleset lifting)
(rule ((= e (Nanf32Ty))) ((let se (Nan)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Neqf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Neq sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fabsf32Ty x)) (= sx (lift x)))
 ((let se (Fabs sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Gtef32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Gte sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Logbf32Ty x)) (= sx (lift x)))
 ((let se (Logb sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Erfcf64Ty x)) (= sx (lift x)))
 ((let se (Sub (Num (bigrat (from-string "1") (from-string "1"))) (Erf sx)))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Atanf32Ty x)) (= sx (lift x)))
 ((let se (Atan sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Acoshf64Ty x)) (= sx (lift x)))
 ((let se (Acosh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Divf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Div sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Gtf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Gt sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Atan2f64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Atan2 sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Roundf64Ty x)) (= sx (lift x)))
 ((let se (Round sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Floorf64Ty x)) (= sx (lift x)))
 ((let se (Floor sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Hypotf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Sqrt (Add (Mul sx sx) (Mul sy sy)))) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Asinhf32Ty x)) (= sx (lift x)))
 ((let se (Asinh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Negf64Ty x)) (= sx (lift x)))
 ((let se (Neg sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Exp2f64Ty x)) (= sx (lift x)))
 ((let se (Exp2 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Fmodf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Fmod sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ceilf32Ty x)) (= sx (lift x)))
 ((let se (Ceil sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Ef64Ty))) ((let se (E)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Powf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Pow sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Atanf64Ty x)) (= sx (lift x)))
 ((let se (Atan sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Gtef64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Gte sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Eqf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Eq sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Logbf64Ty x)) (= sx (lift x)))
 ((let se (Logb sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Mulf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Mul sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Coshf32Ty x)) (= sx (lift x)))
 ((let se (Cosh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Iff32Ty c t f)) (= sc (lift c)) (= st (lift t)) (= sf (lift f)))
 ((let se (If sc st sf)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Floorf32Ty x)) (= sx (lift x)))
 ((let se (Floor sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Acosf32Ty x)) (= sx (lift x)))
 ((let se (Acos sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ltef32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Lte sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Divf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Div sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Expf64Ty x)) (= sx (lift x)))
 ((let se (Exp sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Roundf32Ty x)) (= sx (lift x)))
 ((let se (Round sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Erfcf32Ty x)) (= sx (lift x)))
 ((let se (Sub (Num (bigrat (from-string "1") (from-string "1"))) (Erf sx)))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Rintf32Ty x)) (= sx (lift x)))
 ((let se (Rint sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Tgammaf32Ty x)) (= sx (lift x)))
 ((let se (Tgamma sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Acosf64Ty x)) (= sx (lift x)))
 ((let se (Acos sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log1pf32Ty x)) (= sx (lift x)))
 ((let se (Log (Add (Num (bigrat (from-string "1") (from-string "1"))) sx)))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Expm1f64Ty x)) (= sx (lift x)))
 ((let se (Sub (Exp sx) (Num (bigrat (from-string "1") (from-string "1")))))
  (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Asinf64Ty x)) (= sx (lift x)))
 ((let se (Asin sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Coshf64Ty x)) (= sx (lift x)))
 ((let se (Cosh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Acoshf32Ty x)) (= sx (lift x)))
 ((let se (Acosh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Ltf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Lt sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Remainderf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Remainder sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Copysignf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Copysign sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Log2f64Ty x)) (= sx (lift x)))
 ((let se (Log2 sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Atanhf32Ty x)) (= sx (lift x)))
 ((let se (Atanh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Asinhf64Ty x)) (= sx (lift x)))
 ((let se (Asinh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Sinf32Ty x)) (= sx (lift x)))
 ((let se (Sin sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Addf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Add sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Pif64Ty))) ((let se (Pi)) (union (lift e) se)) :ruleset lifting)
(rule
 ((= e (Tanhf32Ty x)) (= sx (lift x)))
 ((let se (Tanh sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Gtf64Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Gt sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Cosf32Ty x)) (= sx (lift x)))
 ((let se (Cos sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (InfinityTy)))
 ((let se (Infinity)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Copysignf32Ty x y)) (= sx (lift x)) (= sy (lift y)))
 ((let se (Copysign sx sy)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Erff64Ty x)) (= sx (lift x)))
 ((let se (Erf sx)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Num n)))
 ((let tx "binary64") (let etx (Numbinary64 n)) (union (lower e tx) etx))
 :ruleset
 lowering)
(rule
 ((= e (Num n)))
 ((let tx "binary32") (let etx (Numbinary32 n)) (union (lower e tx) etx))
 :ruleset
 lowering)
(rule
 ((= e (Numbinary64 n)))
 ((let se (Num n)) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Numbinary32 n)))
 ((let se (Num n)) (union (lift e) se))
 :ruleset
 lifting)
(rule ((= e (Approx spec impl))) ((union (lift e) spec)) :ruleset lifting)
(rule
 ((= e (Var "R")))
 ((let ty "binary64") (let ety (Varbinary64 "R")) (union (lower e ty) ety))
 :ruleset
 lowering)
(rule
 ((= e (Var "lambda1")))
 ((let ty "binary64")
  (let ety (Varbinary64 "lambda1"))
  (union (lower e ty) ety))
 :ruleset
 lowering)
(rule
 ((= e (Var "lambda2")))
 ((let ty "binary64")
  (let ety (Varbinary64 "lambda2"))
  (union (lower e ty) ety))
 :ruleset
 lowering)
(rule
 ((= e (Var "phi1")))
 ((let ty "binary64") (let ety (Varbinary64 "phi1")) (union (lower e ty) ety))
 :ruleset
 lowering)
(rule
 ((= e (Var "phi2")))
 ((let ty "binary64") (let ety (Varbinary64 "phi2")) (union (lower e ty) ety))
 :ruleset
 lowering)
(rule
 ((= e (Varbinary64 "R")))
 ((let se (Var "R")) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Varbinary64 "lambda1")))
 ((let se (Var "lambda1")) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Varbinary64 "lambda2")))
 ((let se (Var "lambda2")) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Varbinary64 "phi1")))
 ((let se (Var "phi1")) (union (lift e) se))
 :ruleset
 lifting)
(rule
 ((= e (Varbinary64 "phi2")))
 ((let se (Var "phi2")) (union (lift e) se))
 :ruleset
 lifting)
(constructor const1 () M :unextractable)
(constructor const2 () M :unextractable)
(constructor const3 () M :unextractable)
(constructor const4 () M :unextractable)
(constructor const5 () M :unextractable)
(constructor const6 () MTy :unextractable)
(constructor const7 () MTy :unextractable)
(constructor const8 () MTy :unextractable)
(constructor const9 () MTy :unextractable)
(constructor const10 () MTy :unextractable)
(constructor const11 () M :unextractable)
(constructor const12 () MTy :unextractable)
(constructor const13 () MTy :unextractable)
(constructor const14 () MTy :unextractable)
(constructor const15 () MTy :unextractable)
(constructor const16 () M :unextractable)
(constructor const17 () M :unextractable)
(constructor const18 () M :unextractable)
(constructor const19 () M :unextractable)
(constructor const20 () M :unextractable)
(constructor const21 () M :unextractable)
(constructor const22 () M :unextractable)
(constructor const23 () M :unextractable)
(constructor const24 () M :unextractable)
(constructor const25 () M :unextractable)
(constructor const26 () M :unextractable)
(constructor const27 () M :unextractable)
(constructor const28 () M :unextractable)
(constructor const29 () M :unextractable)
(constructor const30 () M :unextractable)
(constructor const31 () M :unextractable)
(constructor const32 () M :unextractable)
(constructor const33 () MTy :unextractable)
(constructor const34 () MTy :unextractable)
(constructor const35 () M :unextractable)
(constructor const36 () M :unextractable)
(constructor const37 () M :unextractable)
(constructor const38 () M :unextractable)
(constructor const39 () M :unextractable)
(constructor const40 () M :unextractable)
(constructor const41 () M :unextractable)
(constructor const42 () M :unextractable)
(constructor const43 () M :unextractable)
(constructor const44 () M :unextractable)
(constructor const45 () M :unextractable)
(constructor const46 () M :unextractable)
(constructor const47 () M :unextractable)
(constructor const48 () M :unextractable)
(constructor const49 () M :unextractable)
(constructor const50 () M :unextractable)
(constructor const51 () MTy :unextractable)
(constructor const52 () MTy :unextractable)
(constructor const53 () MTy :unextractable)
(constructor const54 () MTy :unextractable)
(constructor const55 () M :unextractable)
(constructor const56 () M :unextractable)
(constructor const57 () MTy :unextractable)
(constructor const58 () MTy :unextractable)
(constructor const59 () MTy :unextractable)
(constructor const60 () MTy :unextractable)
(constructor const61 () M :unextractable)
(constructor const62 () M :unextractable)
(constructor const63 () MTy :unextractable)
(constructor const64 () MTy :unextractable)
(constructor const65 () M :unextractable)
(constructor const66 () M :unextractable)
(constructor const67 () M :unextractable)
(constructor const68 () M :unextractable)
(constructor const69 () MTy :unextractable)
(constructor const70 () MTy :unextractable)
(constructor const71 () M :unextractable)
(constructor const72 () M :unextractable)
(constructor const73 () M :unextractable)
(constructor const74 () M :unextractable)
(constructor const75 () M :unextractable)
(constructor const76 () M :unextractable)
(constructor const77 () MTy :unextractable)
(constructor const78 () MTy :unextractable)
(constructor const79 () M :unextractable)
(constructor const80 () M :unextractable)
(constructor const81 () M :unextractable)
(constructor const82 () M :unextractable)
(constructor const83 () M :unextractable)
(constructor const84 () M :unextractable)
(constructor const85 () M :unextractable)
(constructor const86 () M :unextractable)
(constructor const87 () MTy :unextractable)
(constructor const88 () MTy :unextractable)
(constructor const89 () MTy :unextractable)
(constructor const90 () MTy :unextractable)
(constructor const91 () MTy :unextractable)
(constructor const92 () MTy :unextractable)
(constructor const93 () M :unextractable)
(constructor const94 () MTy :unextractable)
(constructor const95 () MTy :unextractable)
(constructor const96 () M :unextractable)
(constructor const97 () M :unextractable)
(constructor const98 () M :unextractable)
(constructor const99 () M :unextractable)
(constructor const100 () MTy :unextractable)
(constructor const101 () MTy :unextractable)
(constructor const102 () M :unextractable)
(constructor const103 () M :unextractable)
(constructor const104 () M :unextractable)
(constructor const105 () M :unextractable)
(constructor const106 () M :unextractable)
(constructor const107 () M :unextractable)
(constructor const108 () MTy :unextractable)
(constructor const109 () MTy :unextractable)
(constructor const110 () M :unextractable)
(constructor const111 () M :unextractable)
(constructor const112 () M :unextractable)
(constructor const113 () M :unextractable)
(constructor const114 () M :unextractable)
(constructor const115 () M :unextractable)
(constructor const116 () M :unextractable)
(constructor const117 () MTy :unextractable)
(constructor const118 () MTy :unextractable)
(constructor const119 () M :unextractable)
(constructor const120 () M :unextractable)
(constructor const121 () M :unextractable)
(constructor const122 () M :unextractable)
(constructor const123 () MTy :unextractable)
(constructor const124 () MTy :unextractable)
(constructor const125 () M :unextractable)
(constructor const126 () M :unextractable)
(constructor const127 () M :unextractable)
(constructor const128 () M :unextractable)
(constructor const129 () M :unextractable)
(constructor const130 () M :unextractable)
(constructor const131 () MTy :unextractable)
(constructor const132 () MTy :unextractable)
(constructor const133 () M :unextractable)
(constructor const134 () M :unextractable)
(constructor const135 () M :unextractable)
(constructor const136 () M :unextractable)
(constructor const137 () M :unextractable)
(constructor const138 () M :unextractable)
(constructor const139 () M :unextractable)
(constructor const140 () M :unextractable)
(constructor const141 () MTy :unextractable)
(constructor const142 () MTy :unextractable)
(constructor const143 () M :unextractable)
(constructor const144 () MTy :unextractable)
(constructor const145 () MTy :unextractable)
(constructor const146 () M :unextractable)
(constructor const147 () M :unextractable)
(constructor const148 () M :unextractable)
(constructor const149 () M :unextractable)
(constructor const150 () MTy :unextractable)
(constructor const151 () MTy :unextractable)
(constructor const152 () M :unextractable)
(constructor const153 () M :unextractable)
(constructor const154 () M :unextractable)
(constructor const155 () M :unextractable)
(constructor const156 () M :unextractable)
(constructor const157 () M :unextractable)
(constructor const158 () MTy :unextractable)
(constructor const159 () MTy :unextractable)
(constructor const160 () M :unextractable)
(constructor const161 () M :unextractable)
(constructor const162 () M :unextractable)
(constructor const163 () M :unextractable)
(constructor const164 () M :unextractable)
(constructor const165 () M :unextractable)
(constructor const166 () M :unextractable)
(constructor const167 () M :unextractable)
(constructor const168 () MTy :unextractable)
(constructor const169 () MTy :unextractable)
(constructor const170 () MTy :unextractable)
(constructor const171 () MTy :unextractable)
(constructor const172 () M :unextractable)
(constructor const173 () MTy :unextractable)
(constructor const174 () MTy :unextractable)
(constructor const175 () M :unextractable)
(constructor const176 () M :unextractable)
(constructor const177 () M :unextractable)
(constructor const178 () M :unextractable)
(constructor const179 () M :unextractable)
(constructor const180 () MTy :unextractable)
(constructor const181 () MTy :unextractable)
(constructor const182 () M :unextractable)
(constructor const183 () M :unextractable)
(constructor const184 () M :unextractable)
(constructor const185 () M :unextractable)
(constructor const186 () M :unextractable)
(constructor const187 () M :unextractable)
(constructor const188 () M :unextractable)
(constructor const189 () MTy :unextractable)
(constructor const190 () MTy :unextractable)
(constructor const191 () M :unextractable)
(constructor const192 () M :unextractable)
(constructor const193 () MTy :unextractable)
(constructor const194 () MTy :unextractable)
(constructor const195 () M :unextractable)
(constructor const196 () M :unextractable)
(constructor const197 () M :unextractable)
(constructor const198 () M :unextractable)
(constructor const199 () M :unextractable)
(constructor const200 () MTy :unextractable)
(constructor const201 () MTy :unextractable)
(constructor const202 () M :unextractable)
(constructor const203 () M :unextractable)
(constructor const204 () M :unextractable)
(constructor const205 () M :unextractable)
(constructor const206 () M :unextractable)
(constructor const207 () M :unextractable)
(constructor const208 () MTy :unextractable)
(constructor const209 () MTy :unextractable)
(constructor const210 () M :unextractable)
(constructor const211 () M :unextractable)
(constructor const212 () M :unextractable)
(constructor const213 () M :unextractable)
(constructor const214 () M :unextractable)
(constructor const215 () M :unextractable)
(constructor const216 () M :unextractable)
(constructor const217 () MTy :unextractable)
(constructor const218 () MTy :unextractable)
(constructor const219 () M :unextractable)
(constructor const220 () MTy :unextractable)
(constructor const221 () MTy :unextractable)
(constructor const222 () M :unextractable)
(constructor const223 () M :unextractable)
(constructor const224 () M :unextractable)
(constructor const225 () MTy :unextractable)
(constructor const226 () MTy :unextractable)
(constructor const227 () M :unextractable)
(constructor const228 () M :unextractable)
(constructor const229 () M :unextractable)
(constructor const230 () M :unextractable)
(constructor const231 () M :unextractable)
(constructor const232 () MTy :unextractable)
(constructor const233 () MTy :unextractable)
(constructor const234 () M :unextractable)
(constructor const235 () M :unextractable)
(constructor const236 () M :unextractable)
(constructor const237 () M :unextractable)
(constructor const238 () M :unextractable)
(constructor const239 () M :unextractable)
(constructor const240 () M :unextractable)
(constructor const241 () MTy :unextractable)
(constructor const242 () MTy :unextractable)
(constructor const243 () M :unextractable)
(constructor const244 () M :unextractable)
(constructor const245 () MTy :unextractable)
(constructor const246 () MTy :unextractable)
(constructor const247 () M :unextractable)
(constructor const248 () M :unextractable)
(constructor const249 () M :unextractable)
(constructor const250 () MTy :unextractable)
(constructor const251 () MTy :unextractable)
(constructor const252 () M :unextractable)
(constructor const253 () M :unextractable)
(constructor const254 () M :unextractable)
(constructor const255 () M :unextractable)
(constructor const256 () M :unextractable)
(constructor const257 () MTy :unextractable)
(constructor const258 () MTy :unextractable)
(constructor const259 () M :unextractable)
(constructor const260 () M :unextractable)
(constructor const261 () M :unextractable)
(constructor const262 () M :unextractable)
(constructor const263 () M :unextractable)
(constructor const264 () M :unextractable)
(constructor const265 () M :unextractable)
(constructor const266 () MTy :unextractable)
(constructor const267 () MTy :unextractable)
(constructor const268 () M :unextractable)
(constructor const269 () M :unextractable)
(constructor const270 () M :unextractable)
(constructor const271 () MTy :unextractable)
(constructor const272 () MTy :unextractable)
(constructor const273 () M :unextractable)
(constructor const274 () M :unextractable)
(constructor const275 () MTy :unextractable)
(constructor const276 () MTy :unextractable)
(constructor const277 () M :unextractable)
(constructor const278 () M :unextractable)
(constructor const279 () MTy :unextractable)
(constructor const280 () MTy :unextractable)
(constructor const281 () M :unextractable)
(constructor const282 () M :unextractable)
(constructor const283 () MTy :unextractable)
(constructor const284 () MTy :unextractable)
(constructor const285 () M :unextractable)
(constructor const286 () M :unextractable)
(constructor const287 () M :unextractable)
(constructor const288 () MTy :unextractable)
(constructor const289 () MTy :unextractable)
(constructor const290 () M :unextractable)
(constructor const291 () M :unextractable)
(constructor const292 () M :unextractable)
(constructor const293 () MTy :unextractable)
(constructor const294 () MTy :unextractable)
(constructor const295 () M :unextractable)
(constructor const296 () M :unextractable)
(constructor const297 () M :unextractable)
(constructor const298 () M :unextractable)
(constructor const299 () M :unextractable)
(constructor const300 () M :unextractable)
(constructor const301 () MTy :unextractable)
(constructor const302 () MTy :unextractable)
(constructor const303 () M :unextractable)
(constructor const304 () M :unextractable)
(constructor const305 () M :unextractable)
(constructor const306 () M :unextractable)
(constructor const307 () M :unextractable)
(constructor const308 () M :unextractable)
(constructor const309 () M :unextractable)
(constructor const310 () MTy :unextractable)
(constructor const311 () MTy :unextractable)
(constructor const312 () M :unextractable)
(constructor const313 () M :unextractable)
(constructor const314 () M :unextractable)
(constructor const315 () M :unextractable)
(constructor const316 () MTy :unextractable)
(constructor const317 () MTy :unextractable)
(constructor const318 () M :unextractable)
(constructor const319 () M :unextractable)
(constructor const320 () MTy :unextractable)
(constructor const321 () MTy :unextractable)
(constructor const322 () M :unextractable)
(constructor const323 () M :unextractable)
(constructor const324 () M :unextractable)
(constructor const325 () MTy :unextractable)
(constructor const326 () MTy :unextractable)
(constructor const327 () M :unextractable)
(constructor const328 () MTy :unextractable)
(constructor const329 () MTy :unextractable)
(constructor const330 () M :unextractable)
(constructor const331 () M :unextractable)
(constructor const332 () MTy :unextractable)
(constructor const333 () MTy :unextractable)
(constructor const334 () M :unextractable)
(constructor const335 () M :unextractable)
(constructor const336 () M :unextractable)
(constructor const337 () MTy :unextractable)
(constructor const338 () MTy :unextractable)
(constructor const339 () M :unextractable)
(constructor const340 () M :unextractable)
(constructor const341 () M :unextractable)
(constructor const342 () M :unextractable)
(constructor const343 () M :unextractable)
(constructor const344 () MTy :unextractable)
(constructor const345 () MTy :unextractable)
(constructor const346 () M :unextractable)
(constructor const347 () M :unextractable)
(constructor const348 () M :unextractable)
(constructor const349 () M :unextractable)
(constructor const350 () M :unextractable)
(constructor const351 () M :unextractable)
(constructor const352 () M :unextractable)
(constructor const353 () MTy :unextractable)
(constructor const354 () MTy :unextractable)
(constructor const355 () M :unextractable)
(constructor const356 () M :unextractable)
(constructor const357 () M :unextractable)
(constructor const358 () MTy :unextractable)
(constructor const359 () MTy :unextractable)
(constructor const360 () M :unextractable)
(constructor const361 () M :unextractable)
(constructor const362 () MTy :unextractable)
(constructor const363 () MTy :unextractable)
(constructor const364 () M :unextractable)
(constructor const365 () M :unextractable)
(constructor const366 () MTy :unextractable)
(constructor const367 () MTy :unextractable)
(constructor const368 () M :unextractable)
(constructor const369 () M :unextractable)
(constructor const370 () M :unextractable)
(constructor const371 () MTy :unextractable)
(constructor const372 () MTy :unextractable)
(constructor const373 () M :unextractable)
(constructor const374 () M :unextractable)
(constructor const375 () M :unextractable)
(constructor const376 () M :unextractable)
(constructor const377 () M :unextractable)
(constructor const378 () MTy :unextractable)
(constructor const379 () MTy :unextractable)
(constructor const380 () M :unextractable)
(constructor const381 () M :unextractable)
(constructor const382 () M :unextractable)
(constructor const383 () M :unextractable)
(constructor const384 () M :unextractable)
(constructor const385 () M :unextractable)
(constructor const386 () M :unextractable)
(constructor const387 () MTy :unextractable)
(constructor const388 () MTy :unextractable)
(constructor const389 () M :unextractable)
(constructor const390 () M :unextractable)
(constructor const391 () MTy :unextractable)
(constructor const392 () MTy :unextractable)
(constructor const393 () M :unextractable)
(constructor const394 () M :unextractable)
(constructor const395 () M :unextractable)
(constructor const396 () M :unextractable)
(constructor const397 () MTy :unextractable)
(constructor const398 () MTy :unextractable)
(constructor const399 () M :unextractable)
(constructor const400 () M :unextractable)
(constructor const401 () M :unextractable)
(constructor const402 () M :unextractable)
(constructor const403 () M :unextractable)
(constructor const404 () M :unextractable)
(constructor const405 () M :unextractable)
(constructor const406 () MTy :unextractable)
(constructor const407 () MTy :unextractable)
(constructor const408 () M :unextractable)
(constructor const409 () M :unextractable)
(constructor const410 () M :unextractable)
(constructor const411 () M :unextractable)
(constructor const412 () M :unextractable)
(constructor const413 () M :unextractable)
(constructor const414 () M :unextractable)
(constructor const415 () M :unextractable)
(constructor const416 () M :unextractable)
(constructor const417 () M :unextractable)
(constructor const418 () M :unextractable)
(constructor const419 () M :unextractable)
(constructor const420 () MTy :unextractable)
(constructor const421 () MTy :unextractable)
(constructor const422 () M :unextractable)
(constructor const423 () M :unextractable)
(constructor const424 () MTy :unextractable)
(constructor const425 () MTy :unextractable)
(constructor const426 () M :unextractable)
(constructor const427 () M :unextractable)
(constructor const428 () MTy :unextractable)
(constructor const429 () MTy :unextractable)
(constructor const430 () M :unextractable)
(constructor const431 () M :unextractable)
(constructor const432 () M :unextractable)
(constructor const433 () M :unextractable)
(constructor const434 () M :unextractable)
(constructor const435 () MTy :unextractable)
(constructor const436 () MTy :unextractable)
(constructor const437 () M :unextractable)
(constructor const438 () M :unextractable)
(constructor const439 () M :unextractable)
(constructor const440 () M :unextractable)
(constructor const441 () M :unextractable)
(constructor const442 () M :unextractable)
(constructor const443 () M :unextractable)
(constructor const444 () MTy :unextractable)
(constructor const445 () MTy :unextractable)
(constructor const446 () M :unextractable)
(constructor const447 () M :unextractable)
(constructor const448 () MTy :unextractable)
(constructor const449 () MTy :unextractable)
(constructor const450 () M :unextractable)
(constructor const451 () MTy :unextractable)
(constructor const452 () MTy :unextractable)
(constructor const453 () M :unextractable)
(constructor const454 () M :unextractable)
(constructor const455 () MTy :unextractable)
(constructor const456 () MTy :unextractable)
(constructor const457 () M :unextractable)
(constructor const458 () M :unextractable)
(constructor const459 () MTy :unextractable)
(constructor const460 () MTy :unextractable)
(constructor const461 () M :unextractable)
(constructor const462 () MTy :unextractable)
(constructor const463 () MTy :unextractable)
(constructor const464 () M :unextractable)
(constructor const465 () MTy :unextractable)
(constructor const466 () MTy :unextractable)
(constructor const467 () M :unextractable)
(constructor const468 () MTy :unextractable)
(constructor const469 () MTy :unextractable)
(constructor const470 () M :unextractable)
(constructor const471 () MTy :unextractable)
(constructor const472 () MTy :unextractable)
(constructor const473 () MTy :unextractable)
(constructor const474 () MTy :unextractable)
(constructor const475 () MTy :unextractable)
(constructor const476 () MTy :unextractable)
(constructor const477 () M :unextractable)
(constructor const478 () M :unextractable)
(constructor const479 () M :unextractable)
(constructor const480 () M :unextractable)
(constructor const481 () MTy :unextractable)
(constructor const482 () MTy :unextractable)
(constructor const483 () MTy :unextractable)
(constructor const484 () MTy :unextractable)
(constructor const485 () M :unextractable)
(constructor const486 () M :unextractable)
(constructor const487 () M :unextractable)
(constructor const488 () M :unextractable)
(constructor const489 () MTy :unextractable)
(constructor const490 () MTy :unextractable)
(constructor const491 () MTy :unextractable)
(constructor const492 () MTy :unextractable)
(constructor const493 () MTy :unextractable)
(constructor const494 () MTy :unextractable)
(constructor const495 () MTy :unextractable)
(constructor const496 () MTy :unextractable)
(constructor const497 () MTy :unextractable)
(constructor const498 () MTy :unextractable)
(constructor const499 () MTy :unextractable)
(constructor const500 () MTy :unextractable)
(constructor const501 () MTy :unextractable)
(constructor const502 () MTy :unextractable)
(constructor const503 () MTy :unextractable)
(constructor const504 () MTy :unextractable)
(constructor const505 () MTy :unextractable)
(constructor const506 () MTy :unextractable)
(constructor const507 () MTy :unextractable)
(constructor const508 () MTy :unextractable)
(constructor const509 () M :unextractable)
(constructor const510 () M :unextractable)
(constructor const511 () M :unextractable)
(constructor const512 () M :unextractable)
(constructor const513 () M :unextractable)
(constructor const514 () MTy :unextractable)
(constructor const515 () MTy :unextractable)
(constructor const516 () M :unextractable)
(constructor const517 () M :unextractable)
(constructor const518 () M :unextractable)
(constructor const519 () M :unextractable)
(constructor const520 () MTy :unextractable)
(constructor const521 () MTy :unextractable)
(constructor const522 () M :unextractable)
(constructor const523 () MTy :unextractable)
(constructor const524 () MTy :unextractable)
(constructor const525 () M :unextractable)
(constructor const526 () M :unextractable)
(constructor const527 () M :unextractable)
(constructor const528 () M :unextractable)
(constructor const529 () MTy :unextractable)
(constructor const530 () MTy :unextractable)
(constructor const531 () M :unextractable)
(constructor const532 () MTy :unextractable)
(constructor const533 () MTy :unextractable)
(constructor const534 () M :unextractable)
(constructor const535 () MTy :unextractable)
(constructor const536 () MTy :unextractable)
(constructor const537 () M :unextractable)
(constructor const538 () MTy :unextractable)
(constructor const539 () MTy :unextractable)
(constructor const540 () M :unextractable)
(constructor const541 () MTy :unextractable)
(constructor const542 () MTy :unextractable)
(constructor const543 () MTy :unextractable)
(constructor const544 () MTy :unextractable)
(constructor const545 () M :unextractable)
(constructor const546 () M :unextractable)
(constructor const547 () M :unextractable)
(constructor const548 () MTy :unextractable)
(constructor const549 () MTy :unextractable)
(constructor const550 () M :unextractable)
(constructor const551 () M :unextractable)
(constructor const552 () M :unextractable)
(constructor const553 () M :unextractable)
(constructor const554 () MTy :unextractable)
(constructor const555 () MTy :unextractable)
(constructor const556 () M :unextractable)
(constructor const557 () M :unextractable)
(constructor const558 () M :unextractable)
(constructor const559 () M :unextractable)
(constructor const560 () MTy :unextractable)
(constructor const561 () MTy :unextractable)
(constructor const562 () M :unextractable)
(constructor const563 () M :unextractable)
(constructor const564 () MTy :unextractable)
(constructor const565 () MTy :unextractable)
(constructor const566 () M :unextractable)
(constructor const567 () MTy :unextractable)
(constructor const568 () MTy :unextractable)
(constructor const569 () M :unextractable)
(constructor const570 () MTy :unextractable)
(constructor const571 () MTy :unextractable)
(constructor const572 () M :unextractable)
(constructor const573 () M :unextractable)
(constructor const574 () M :unextractable)
(constructor const575 () M :unextractable)
(constructor const576 () M :unextractable)
(constructor const577 () MTy :unextractable)
(constructor const578 () MTy :unextractable)
(constructor const579 () M :unextractable)
(constructor const580 () M :unextractable)
(constructor const581 () M :unextractable)
(constructor const582 () M :unextractable)
(constructor const583 () M :unextractable)
(constructor const584 () MTy :unextractable)
(constructor const585 () MTy :unextractable)
(constructor const586 () M :unextractable)
(constructor const587 () M :unextractable)
(constructor const588 () M :unextractable)
(constructor const589 () M :unextractable)
(constructor const590 () MTy :unextractable)
(constructor const591 () MTy :unextractable)
(constructor const592 () M :unextractable)
(constructor const593 () M :unextractable)
(constructor const594 () M :unextractable)
(constructor const595 () M :unextractable)
(constructor const596 () M :unextractable)
(constructor const597 () MTy :unextractable)
(constructor const598 () MTy :unextractable)
(constructor const599 () M :unextractable)
(constructor const600 () M :unextractable)
(constructor const601 () MTy :unextractable)
(constructor const602 () MTy :unextractable)
(constructor const603 () M :unextractable)
(constructor const604 () MTy :unextractable)
(constructor const605 () MTy :unextractable)
(constructor const606 () M :unextractable)
(constructor const607 () MTy :unextractable)
(constructor const608 () MTy :unextractable)
(constructor const609 () M :unextractable)
(constructor const610 () MTy :unextractable)
(constructor const611 () MTy :unextractable)
(constructor const612 () M :unextractable)
(constructor const613 () MTy :unextractable)
(constructor const614 () MTy :unextractable)
(constructor const615 () M :unextractable)
(constructor const616 () MTy :unextractable)
(constructor const617 () MTy :unextractable)
(constructor const618 () M :unextractable)
(constructor const619 () MTy :unextractable)
(constructor const620 () MTy :unextractable)
(constructor const621 () MTy :unextractable)
(constructor const622 () MTy :unextractable)
(constructor const623 () M :unextractable)
(constructor const624 () MTy :unextractable)
(constructor const625 () MTy :unextractable)
(constructor const626 () M :unextractable)
(constructor const627 () M :unextractable)
(constructor const628 () MTy :unextractable)
(constructor const629 () MTy :unextractable)
(constructor const630 () M :unextractable)
(constructor const631 () M :unextractable)
(constructor const632 () M :unextractable)
(constructor const633 () M :unextractable)
(constructor const634 () M :unextractable)
(constructor const635 () M :unextractable)
(constructor const636 () MTy :unextractable)
(constructor const637 () MTy :unextractable)
(constructor const638 () M :unextractable)
(constructor const639 () M :unextractable)
(constructor const640 () M :unextractable)
(constructor const641 () M :unextractable)
(constructor const642 () M :unextractable)
(constructor const643 () M :unextractable)
(constructor const644 () M :unextractable)
(constructor const645 () MTy :unextractable)
(constructor const646 () MTy :unextractable)
(constructor const647 () M :unextractable)
(constructor const648 () M :unextractable)
(constructor const649 () M :unextractable)
(constructor const650 () MTy :unextractable)
(constructor const651 () MTy :unextractable)
(constructor const652 () M :unextractable)
(constructor const653 () M :unextractable)
(constructor const654 () M :unextractable)
(constructor const655 () M :unextractable)
(constructor const656 () MTy :unextractable)
(constructor const657 () MTy :unextractable)
(constructor const658 () M :unextractable)
(constructor const659 () M :unextractable)
(constructor const660 () M :unextractable)
(constructor const661 () M :unextractable)
(constructor const662 () M :unextractable)
(constructor const663 () M :unextractable)
(constructor const664 () MTy :unextractable)
(constructor const665 () MTy :unextractable)
(constructor const666 () M :unextractable)
(constructor const667 () M :unextractable)
(constructor const668 () M :unextractable)
(constructor const669 () MTy :unextractable)
(constructor const670 () MTy :unextractable)
(constructor const671 () M :unextractable)
(constructor const672 () M :unextractable)
(constructor const673 () M :unextractable)
(constructor const674 () M :unextractable)
(constructor const675 () M :unextractable)
(constructor const676 () M :unextractable)
(constructor const677 () MTy :unextractable)
(constructor const678 () MTy :unextractable)
(constructor const679 () M :unextractable)
(constructor const680 () M :unextractable)
(constructor const681 () M :unextractable)
(constructor const682 () M :unextractable)
(constructor const683 () M :unextractable)
(constructor const684 () M :unextractable)
(constructor const685 () M :unextractable)
(constructor const686 () M :unextractable)
(constructor const687 () MTy :unextractable)
(constructor const688 () MTy :unextractable)
(constructor const689 () M :unextractable)
(constructor const690 () M :unextractable)
(constructor const691 () MTy :unextractable)
(constructor const692 () MTy :unextractable)
(constructor const693 () M :unextractable)
(constructor const694 () M :unextractable)
(constructor const695 () M :unextractable)
(constructor const696 () M :unextractable)
(constructor const697 () MTy :unextractable)
(constructor const698 () MTy :unextractable)
(constructor const699 () M :unextractable)
(constructor const700 () M :unextractable)
(constructor const701 () M :unextractable)
(constructor const702 () M :unextractable)
(constructor const703 () M :unextractable)
(constructor const704 () M :unextractable)
(constructor const705 () MTy :unextractable)
(constructor const706 () MTy :unextractable)
(constructor const707 () M :unextractable)
(constructor const708 () M :unextractable)
(constructor const709 () M :unextractable)
(constructor const710 () M :unextractable)
(constructor const711 () M :unextractable)
(constructor const712 () M :unextractable)
(constructor const713 () M :unextractable)
(constructor const714 () M :unextractable)
(constructor const715 () MTy :unextractable)
(constructor const716 () MTy :unextractable)
(constructor const717 () MTy :unextractable)
(constructor const718 () MTy :unextractable)
(constructor const719 () M :unextractable)
(constructor const720 () M :unextractable)
(constructor const721 () M :unextractable)
(constructor const722 () MTy :unextractable)
(constructor const723 () MTy :unextractable)
(constructor const724 () M :unextractable)
(constructor const725 () M :unextractable)
(constructor const726 () M :unextractable)
(constructor const727 () M :unextractable)
(constructor const728 () M :unextractable)
(constructor const729 () M :unextractable)
(constructor const730 () MTy :unextractable)
(constructor const731 () MTy :unextractable)
(constructor const732 () M :unextractable)
(constructor const733 () M :unextractable)
(constructor const734 () M :unextractable)
(constructor const735 () M :unextractable)
(constructor const736 () M :unextractable)
(constructor const737 () M :unextractable)
(constructor const738 () M :unextractable)
(constructor const739 () M :unextractable)
(constructor const740 () MTy :unextractable)
(constructor const741 () MTy :unextractable)
(constructor const742 () M :unextractable)
(constructor const743 () MTy :unextractable)
(constructor const744 () MTy :unextractable)
(constructor const745 () M :unextractable)
(constructor const746 () M :unextractable)
(constructor const747 () M :unextractable)
(constructor const748 () M :unextractable)
(constructor const749 () MTy :unextractable)
(constructor const750 () MTy :unextractable)
(constructor const751 () M :unextractable)
(constructor const752 () M :unextractable)
(constructor const753 () M :unextractable)
(constructor const754 () M :unextractable)
(constructor const755 () M :unextractable)
(constructor const756 () M :unextractable)
(constructor const757 () MTy :unextractable)
(constructor const758 () MTy :unextractable)
(constructor const759 () M :unextractable)
(constructor const760 () M :unextractable)
(constructor const761 () M :unextractable)
(constructor const762 () MTy :unextractable)
(constructor const763 () MTy :unextractable)
(constructor const764 () M :unextractable)
(constructor const765 () M :unextractable)
(constructor const766 () M :unextractable)
(constructor const767 () M :unextractable)
(constructor const768 () M :unextractable)
(constructor const769 () MTy :unextractable)
(constructor const770 () MTy :unextractable)
(constructor const771 () M :unextractable)
(constructor const772 () M :unextractable)
(constructor const773 () M :unextractable)
(constructor const774 () M :unextractable)
(constructor const775 () M :unextractable)
(constructor const776 () M :unextractable)
(constructor const777 () M :unextractable)
(constructor const778 () MTy :unextractable)
(constructor const779 () MTy :unextractable)
(constructor const780 () MTy :unextractable)
(constructor const781 () MTy :unextractable)
(constructor const782 () M :unextractable)
(constructor const783 () M :unextractable)
(constructor const784 () M :unextractable)
(constructor const785 () M :unextractable)
(constructor const786 () MTy :unextractable)
(constructor const787 () MTy :unextractable)
(constructor const788 () M :unextractable)
(constructor const789 () M :unextractable)
(constructor const790 () M :unextractable)
(constructor const791 () M :unextractable)
(constructor const792 () M :unextractable)
(constructor const793 () M :unextractable)
(constructor const794 () MTy :unextractable)
(constructor const795 () MTy :unextractable)
(constructor const796 () M :unextractable)
(constructor const797 () M :unextractable)
(constructor const798 () M :unextractable)
(constructor const799 () M :unextractable)
(constructor const800 () M :unextractable)
(constructor const801 () M :unextractable)
(constructor const802 () M :unextractable)
(constructor const803 () M :unextractable)
(constructor const804 () MTy :unextractable)
(constructor const805 () MTy :unextractable)
(constructor const806 () M :unextractable)
(constructor const807 () M :unextractable)
(constructor const808 () M :unextractable)
(constructor const809 () MTy :unextractable)
(constructor const810 () MTy :unextractable)
(constructor const811 () M :unextractable)
(constructor const812 () M :unextractable)
(constructor const813 () M :unextractable)
(constructor const814 () MTy :unextractable)
(constructor const815 () MTy :unextractable)
(constructor const816 () M :unextractable)
(constructor const817 () MTy :unextractable)
(constructor const818 () MTy :unextractable)
(constructor const819 () M :unextractable)
(constructor const820 () M :unextractable)
(constructor const821 () M :unextractable)
(constructor const822 () M :unextractable)
(constructor const823 () MTy :unextractable)
(constructor const824 () MTy :unextractable)
(constructor const825 () M :unextractable)
(constructor const826 () M :unextractable)
(constructor const827 () M :unextractable)
(constructor const828 () M :unextractable)
(constructor const829 () M :unextractable)
(constructor const830 () MTy :unextractable)
(constructor const831 () MTy :unextractable)
(constructor const832 () M :unextractable)
(constructor const833 () M :unextractable)
(constructor const834 () M :unextractable)
(constructor const835 () M :unextractable)
(constructor const836 () M :unextractable)
(constructor const837 () M :unextractable)
(constructor const838 () M :unextractable)
(constructor const839 () MTy :unextractable)
(constructor const840 () MTy :unextractable)
(constructor const841 () M :unextractable)
(constructor const842 () MTy :unextractable)
(constructor const843 () MTy :unextractable)
(constructor const844 () M :unextractable)
(constructor const845 () M :unextractable)
(constructor const846 () MTy :unextractable)
(constructor const847 () MTy :unextractable)
(constructor const848 () M :unextractable)
(constructor const849 () M :unextractable)
(constructor const850 () M :unextractable)
(constructor const851 () M :unextractable)
(constructor const852 () M :unextractable)
(constructor const853 () MTy :unextractable)
(constructor const854 () MTy :unextractable)
(constructor const855 () M :unextractable)
(constructor const856 () M :unextractable)
(constructor const857 () M :unextractable)
(constructor const858 () M :unextractable)
(constructor const859 () M :unextractable)
(constructor const860 () M :unextractable)
(constructor const861 () M :unextractable)
(constructor const862 () MTy :unextractable)
(constructor const863 () MTy :unextractable)
(constructor const864 () M :unextractable)
(constructor const865 () MTy :unextractable)
(constructor const866 () MTy :unextractable)
(constructor const867 () M :unextractable)
(constructor const868 () MTy :unextractable)
(constructor const869 () MTy :unextractable)
(constructor const870 () M :unextractable)
(constructor const871 () MTy :unextractable)
(constructor const872 () MTy :unextractable)
(constructor const873 () M :unextractable)
(constructor const874 () MTy :unextractable)
(constructor const875 () MTy :unextractable)
(constructor const876 () M :unextractable)
(constructor const877 () MTy :unextractable)
(constructor const878 () MTy :unextractable)
(constructor const879 () M :unextractable)
(constructor const880 () M :unextractable)
(constructor const881 () MTy :unextractable)
(constructor const882 () MTy :unextractable)
(constructor const883 () M :unextractable)
(constructor const884 () M :unextractable)
(constructor const885 () MTy :unextractable)
(constructor const886 () MTy :unextractable)
(constructor const887 () M :unextractable)
(constructor const888 () M :unextractable)
(constructor const889 () MTy :unextractable)
(constructor const890 () MTy :unextractable)
(constructor const891 () M :unextractable)
(constructor const892 () MTy :unextractable)
(constructor const893 () MTy :unextractable)
(constructor const894 () M :unextractable)
(constructor const895 () MTy :unextractable)
(constructor const896 () MTy :unextractable)
(constructor const897 () M :unextractable)
(constructor const898 () MTy :unextractable)
(constructor const899 () MTy :unextractable)
(constructor const900 () M :unextractable)
(constructor const901 () MTy :unextractable)
(constructor const902 () MTy :unextractable)
(constructor const903 () MTy :unextractable)
(constructor const904 () MTy :unextractable)
(constructor const905 () M :unextractable)
(constructor const906 () M :unextractable)
(constructor const907 () MTy :unextractable)
(constructor const908 () MTy :unextractable)
(constructor const909 () M :unextractable)
(constructor const910 () MTy :unextractable)
(constructor const911 () MTy :unextractable)
(constructor const912 () M :unextractable)
(constructor const913 () MTy :unextractable)
(constructor const914 () MTy :unextractable)
(constructor const915 () M :unextractable)
(constructor const916 () MTy :unextractable)
(constructor const917 () MTy :unextractable)
(constructor const918 () M :unextractable)
(constructor const919 () M :unextractable)
(constructor const920 () M :unextractable)
(constructor const921 () M :unextractable)
(constructor const922 () MTy :unextractable)
(constructor const923 () MTy :unextractable)
(constructor const924 () M :unextractable)
(constructor const925 () M :unextractable)
(constructor const926 () M :unextractable)
(constructor const927 () M :unextractable)
(constructor const928 () M :unextractable)
(constructor const929 () M :unextractable)
(constructor const930 () MTy :unextractable)
(constructor const931 () MTy :unextractable)
(constructor const932 () M :unextractable)
(constructor const933 () M :unextractable)
(constructor const934 () M :unextractable)
(constructor const935 () M :unextractable)
(constructor const936 () M :unextractable)
(constructor const937 () M :unextractable)
(constructor const938 () M :unextractable)
(constructor const939 () MTy :unextractable)
(constructor const940 () MTy :unextractable)
(constructor const941 () MTy :unextractable)
(constructor const942 () MTy :unextractable)
(constructor const943 () M :unextractable)
(constructor const944 () M :unextractable)
(constructor const945 () MTy :unextractable)
(constructor const946 () MTy :unextractable)
(constructor const947 () M :unextractable)
(constructor const948 () MTy :unextractable)
(constructor const949 () MTy :unextractable)
(constructor const950 () M :unextractable)
(constructor const951 () M :unextractable)
(constructor const952 () M :unextractable)
(constructor const953 () M :unextractable)
(constructor const954 () MTy :unextractable)
(constructor const955 () MTy :unextractable)
(constructor const956 () M :unextractable)
(constructor const957 () M :unextractable)
(constructor const958 () M :unextractable)
(constructor const959 () M :unextractable)
(constructor const960 () M :unextractable)
(constructor const961 () M :unextractable)
(constructor const962 () MTy :unextractable)
(constructor const963 () MTy :unextractable)
(constructor const964 () M :unextractable)
(constructor const965 () M :unextractable)
(constructor const966 () M :unextractable)
(constructor const967 () M :unextractable)
(constructor const968 () M :unextractable)
(constructor const969 () M :unextractable)
(constructor const970 () M :unextractable)
(constructor const971 () MTy :unextractable)
(constructor const972 () MTy :unextractable)
(constructor const973 () M :unextractable)
(constructor const974 () MTy :unextractable)
(constructor const975 () MTy :unextractable)
(constructor const976 () M :unextractable)
(constructor const977 () M :unextractable)
(constructor const978 () M :unextractable)
(constructor const979 () M :unextractable)
(constructor const980 () MTy :unextractable)
(constructor const981 () MTy :unextractable)
(constructor const982 () M :unextractable)
(constructor const983 () M :unextractable)
(constructor const984 () M :unextractable)
(constructor const985 () M :unextractable)
(constructor const986 () M :unextractable)
(constructor const987 () M :unextractable)
(constructor const988 () M :unextractable)
(constructor const989 () MTy :unextractable)
(constructor const990 () MTy :unextractable)
(constructor const991 () M :unextractable)
(constructor const992 () M :unextractable)
(constructor const993 () M :unextractable)
(constructor const994 () M :unextractable)
(constructor const995 () M :unextractable)
(constructor const996 () M :unextractable)
(constructor const997 () M :unextractable)
(constructor const998 () M :unextractable)
(constructor const999 () M :unextractable)
(constructor const1000 () M :unextractable)
(constructor const1001 () M :unextractable)
(constructor const1002 () M :unextractable)
(constructor const1003 () MTy :unextractable)
(constructor const1004 () MTy :unextractable)
(constructor const1005 () M :unextractable)
(constructor const1006 () MTy :unextractable)
(constructor const1007 () MTy :unextractable)
(constructor const1008 () M :unextractable)
(constructor const1009 () M :unextractable)
(constructor const1010 () MTy :unextractable)
(constructor const1011 () MTy :unextractable)
(constructor const1012 () M :unextractable)
(constructor const1013 () M :unextractable)
(constructor const1014 () M :unextractable)
(constructor const1015 () M :unextractable)
(constructor const1016 () M :unextractable)
(constructor const1017 () MTy :unextractable)
(constructor const1018 () MTy :unextractable)
(constructor const1019 () M :unextractable)
(constructor const1020 () M :unextractable)
(constructor const1021 () M :unextractable)
(constructor const1022 () M :unextractable)
(constructor const1023 () M :unextractable)
(constructor const1024 () M :unextractable)
(constructor const1025 () M :unextractable)
(constructor const1026 () MTy :unextractable)
(constructor const1027 () MTy :unextractable)
(constructor const1028 () M :unextractable)
(constructor const1029 () MTy :unextractable)
(constructor const1030 () MTy :unextractable)
(constructor const1031 () M :unextractable)
(constructor const1032 () MTy :unextractable)
(constructor const1033 () MTy :unextractable)
(constructor const1034 () M :unextractable)
(constructor const1035 () M :unextractable)
(constructor const1036 () MTy :unextractable)
(constructor const1037 () MTy :unextractable)
(constructor const1038 () M :unextractable)
(constructor const1039 () M :unextractable)
(constructor const1040 () MTy :unextractable)
(constructor const1041 () MTy :unextractable)
(constructor const1042 () M :unextractable)
(constructor const1043 () M :unextractable)
(constructor const1044 () M :unextractable)
(constructor const1045 () MTy :unextractable)
(constructor const1046 () MTy :unextractable)
(constructor const1047 () MTy :unextractable)
(constructor const1048 () MTy :unextractable)
(constructor const1049 () MTy :unextractable)
(constructor const1050 () MTy :unextractable)
(constructor const1051 () M :unextractable)
(constructor const1052 () M :unextractable)
(constructor const1053 () M :unextractable)
(constructor const1054 () M :unextractable)
(constructor const1055 () M :unextractable)
(constructor const1056 () MTy :unextractable)
(constructor const1057 () MTy :unextractable)
(constructor const1058 () M :unextractable)
(constructor const1059 () M :unextractable)
(constructor const1060 () M :unextractable)
(constructor const1061 () M :unextractable)
(constructor const1062 () MTy :unextractable)
(constructor const1063 () MTy :unextractable)
(constructor const1064 () M :unextractable)
(constructor const1065 () M :unextractable)
(constructor const1066 () M :unextractable)
(constructor const1067 () M :unextractable)
(constructor const1068 () MTy :unextractable)
(constructor const1069 () MTy :unextractable)
(constructor const1070 () M :unextractable)
(constructor const1071 () M :unextractable)
(constructor const1072 () M :unextractable)
(constructor const1073 () M :unextractable)
(constructor const1074 () MTy :unextractable)
(constructor const1075 () MTy :unextractable)
(constructor const1076 () M :unextractable)
(constructor const1077 () MTy :unextractable)
(constructor const1078 () MTy :unextractable)
(constructor const1079 () M :unextractable)
(constructor const1080 () MTy :unextractable)
(constructor const1081 () MTy :unextractable)
(constructor const1082 () M :unextractable)
(constructor const1083 () MTy :unextractable)
(constructor const1084 () MTy :unextractable)
(constructor const1085 () M :unextractable)
(constructor const1086 () MTy :unextractable)
(constructor const1087 () MTy :unextractable)
(constructor const1088 () M :unextractable)
(constructor const1089 () MTy :unextractable)
(constructor const1090 () MTy :unextractable)
(constructor const1091 () M :unextractable)
(constructor const1092 () MTy :unextractable)
(constructor const1093 () MTy :unextractable)
(constructor const1094 () M :unextractable)
(constructor const1095 () M :unextractable)
(constructor const1096 () MTy :unextractable)
(constructor const1097 () MTy :unextractable)
(constructor const1098 () M :unextractable)
(constructor const1099 () MTy :unextractable)
(constructor const1100 () MTy :unextractable)
(constructor const1101 () M :unextractable)
(constructor const1102 () MTy :unextractable)
(constructor const1103 () MTy :unextractable)
(constructor const1104 () M :unextractable)
(constructor const1105 () M :unextractable)
(constructor const1106 () M :unextractable)
(constructor const1107 () M :unextractable)
(constructor const1108 () M :unextractable)
(constructor const1109 () MTy :unextractable)
(constructor const1110 () MTy :unextractable)
(constructor const1111 () M :unextractable)
(constructor const1112 () M :unextractable)
(constructor const1113 () M :unextractable)
(constructor const1114 () M :unextractable)
(constructor const1115 () M :unextractable)
(constructor const1116 () MTy :unextractable)
(constructor const1117 () MTy :unextractable)
(constructor const1118 () M :unextractable)
(constructor const1119 () MTy :unextractable)
(constructor const1120 () MTy :unextractable)
(constructor const1121 () M :unextractable)
(constructor const1122 () M :unextractable)
(constructor const1123 () M :unextractable)
(constructor const1124 () M :unextractable)
(constructor const1125 () M :unextractable)
(constructor const1126 () MTy :unextractable)
(constructor const1127 () MTy :unextractable)
(constructor const1128 () M :unextractable)
(constructor const1129 () MTy :unextractable)
(constructor const1130 () MTy :unextractable)
(constructor const1131 () M :unextractable)
(constructor const1132 () MTy :unextractable)
(constructor const1133 () MTy :unextractable)
(constructor const1134 () M :unextractable)
(constructor const1135 () MTy :unextractable)
(constructor const1136 () MTy :unextractable)
(constructor const1137 () M :unextractable)
(constructor const1138 () MTy :unextractable)
(constructor const1139 () MTy :unextractable)
(constructor const1140 () M :unextractable)
(constructor const1141 () MTy :unextractable)
(constructor const1142 () MTy :unextractable)
(constructor const1143 () M :unextractable)
(constructor const1144 () MTy :unextractable)
(constructor const1145 () MTy :unextractable)
(constructor const1146 () M :unextractable)
(constructor const1147 () MTy :unextractable)
(constructor const1148 () MTy :unextractable)
(constructor const1149 () MTy :unextractable)
(constructor const1150 () MTy :unextractable)
(constructor const1151 () M :unextractable)
(constructor const1152 () M :unextractable)
(constructor const1153 () M :unextractable)
(constructor const1154 () M :unextractable)
(constructor const1155 () MTy :unextractable)
(constructor const1156 () MTy :unextractable)
(constructor const1157 () M :unextractable)
(constructor const1158 () M :unextractable)
(constructor const1159 () M :unextractable)
(constructor const1160 () M :unextractable)
(constructor const1161 () M :unextractable)
(constructor const1162 () MTy :unextractable)
(constructor const1163 () MTy :unextractable)
(constructor const1164 () M :unextractable)
(constructor const1165 () M :unextractable)
(constructor const1166 () M :unextractable)
(constructor const1167 () M :unextractable)
(constructor const1168 () M :unextractable)
(constructor const1169 () M :unextractable)
(constructor const1170 () M :unextractable)
(constructor const1171 () MTy :unextractable)
(constructor const1172 () MTy :unextractable)
(constructor const1173 () MTy :unextractable)
(constructor const1174 () MTy :unextractable)
(constructor const1175 () M :unextractable)
(constructor const1176 () M :unextractable)
(constructor const1177 () M :unextractable)
(constructor const1178 () M :unextractable)
(constructor const1179 () MTy :unextractable)
(constructor const1180 () MTy :unextractable)
(constructor const1181 () M :unextractable)
(constructor const1182 () M :unextractable)
(constructor const1183 () M :unextractable)
(constructor const1184 () M :unextractable)
(constructor const1185 () M :unextractable)
(constructor const1186 () M :unextractable)
(constructor const1187 () MTy :unextractable)
(constructor const1188 () MTy :unextractable)
(constructor const1189 () M :unextractable)
(constructor const1190 () M :unextractable)
(constructor const1191 () M :unextractable)
(constructor const1192 () M :unextractable)
(constructor const1193 () M :unextractable)
(constructor const1194 () M :unextractable)
(constructor const1195 () M :unextractable)
(constructor const1196 () M :unextractable)
(constructor const1197 () MTy :unextractable)
(constructor const1198 () MTy :unextractable)
(constructor const1199 () M :unextractable)
(constructor const1200 () M :unextractable)
(constructor const1201 () MTy :unextractable)
(constructor const1202 () MTy :unextractable)
(constructor const1203 () M :unextractable)
(constructor const1204 () M :unextractable)
(constructor const1205 () M :unextractable)
(constructor const1206 () M :unextractable)
(constructor const1207 () MTy :unextractable)
(constructor const1208 () MTy :unextractable)
(constructor const1209 () M :unextractable)
(constructor const1210 () M :unextractable)
(constructor const1211 () M :unextractable)
(constructor const1212 () M :unextractable)
(constructor const1213 () M :unextractable)
(constructor const1214 () M :unextractable)
(constructor const1215 () MTy :unextractable)
(constructor const1216 () MTy :unextractable)
(constructor const1217 () MTy :unextractable)
(constructor const1218 () MTy :unextractable)
(constructor const1219 () M :unextractable)
(constructor const1220 () M :unextractable)
(constructor const1221 () M :unextractable)
(constructor const1222 () MTy :unextractable)
(constructor const1223 () MTy :unextractable)
(constructor const1224 () M :unextractable)
(constructor const1225 () M :unextractable)
(constructor const1226 () M :unextractable)
(constructor const1227 () M :unextractable)
(constructor const1228 () M :unextractable)
(constructor const1229 () MTy :unextractable)
(constructor const1230 () MTy :unextractable)
(constructor const1231 () M :unextractable)
(constructor const1232 () M :unextractable)
(constructor const1233 () M :unextractable)
(constructor const1234 () M :unextractable)
(constructor const1235 () M :unextractable)
(constructor const1236 () M :unextractable)
(constructor const1237 () M :unextractable)
(constructor const1238 () MTy :unextractable)
(constructor const1239 () MTy :unextractable)
(constructor const1240 () M :unextractable)
(constructor const1241 () MTy :unextractable)
(constructor const1242 () MTy :unextractable)
(constructor const1243 () M :unextractable)
(constructor const1244 () M :unextractable)
(constructor const1245 () M :unextractable)
(constructor const1246 () M :unextractable)
(constructor const1247 () MTy :unextractable)
(constructor const1248 () MTy :unextractable)
(constructor const1249 () M :unextractable)
(constructor const1250 () M :unextractable)
(constructor const1251 () M :unextractable)
(constructor const1252 () M :unextractable)
(constructor const1253 () M :unextractable)
(constructor const1254 () M :unextractable)
(constructor const1255 () MTy :unextractable)
(constructor const1256 () MTy :unextractable)
(constructor const1257 () M :unextractable)
(constructor const1258 () M :unextractable)
(constructor const1259 () M :unextractable)
(constructor const1260 () M :unextractable)
(constructor const1261 () M :unextractable)
(constructor const1262 () M :unextractable)
(constructor const1263 () M :unextractable)
(constructor const1264 () M :unextractable)
(constructor const1265 () MTy :unextractable)
(constructor const1266 () MTy :unextractable)
(constructor const1267 () MTy :unextractable)
(constructor const1268 () MTy :unextractable)
(constructor const1269 () M :unextractable)
(constructor const1270 () M :unextractable)
(constructor const1271 () M :unextractable)
(constructor const1272 () MTy :unextractable)
(constructor const1273 () MTy :unextractable)
(constructor const1274 () M :unextractable)
(constructor const1275 () M :unextractable)
(constructor const1276 () M :unextractable)
(constructor const1277 () M :unextractable)
(constructor const1278 () M :unextractable)
(constructor const1279 () MTy :unextractable)
(constructor const1280 () MTy :unextractable)
(constructor const1281 () M :unextractable)
(constructor const1282 () M :unextractable)
(constructor const1283 () M :unextractable)
(constructor const1284 () M :unextractable)
(constructor const1285 () M :unextractable)
(constructor const1286 () M :unextractable)
(constructor const1287 () M :unextractable)
(constructor const1288 () MTy :unextractable)
(constructor const1289 () MTy :unextractable)
(constructor const1290 () M :unextractable)
(constructor const1291 () MTy :unextractable)
(constructor const1292 () MTy :unextractable)
(constructor const1293 () M :unextractable)
(constructor const1294 () M :unextractable)
(constructor const1295 () M :unextractable)
(constructor const1296 () M :unextractable)
(constructor const1297 () M :unextractable)
(constructor const1298 () MTy :unextractable)
(constructor const1299 () MTy :unextractable)
(constructor const1300 () M :unextractable)
(constructor const1301 () M :unextractable)
(constructor const1302 () M :unextractable)
(constructor const1303 () M :unextractable)
(constructor const1304 () M :unextractable)
(constructor const1305 () M :unextractable)
(constructor const1306 () M :unextractable)
(constructor const1307 () MTy :unextractable)
(constructor const1308 () MTy :unextractable)
(constructor const1309 () M :unextractable)
(constructor const1310 () M :unextractable)
(constructor const1311 () M :unextractable)
(constructor const1312 () M :unextractable)
(constructor const1313 () M :unextractable)
(constructor const1314 () MTy :unextractable)
(constructor const1315 () MTy :unextractable)
(constructor const1316 () M :unextractable)
(constructor const1317 () M :unextractable)
(constructor const1318 () M :unextractable)
(constructor const1319 () M :unextractable)
(constructor const1320 () M :unextractable)
(constructor const1321 () MTy :unextractable)
(constructor const1322 () MTy :unextractable)
(constructor const1323 () MTy :unextractable)
(constructor const1324 () MTy :unextractable)
(constructor const1325 () MTy :unextractable)
(constructor const1326 () MTy :unextractable)
(constructor const1327 () MTy :unextractable)
(constructor const1328 () MTy :unextractable)
(constructor const1329 () MTy :unextractable)
(constructor const1330 () MTy :unextractable)
(constructor const1331 () MTy :unextractable)
(constructor const1332 () MTy :unextractable)
(constructor const1333 () M :unextractable)
(constructor const1334 () M :unextractable)
(constructor const1335 () M :unextractable)
(constructor const1336 () MTy :unextractable)
(constructor const1337 () MTy :unextractable)
(constructor const1338 () M :unextractable)
(constructor const1339 () M :unextractable)
(constructor const1340 () M :unextractable)
(constructor const1341 () MTy :unextractable)
(constructor const1342 () MTy :unextractable)
(constructor const1343 () M :unextractable)
(constructor const1344 () M :unextractable)
(constructor const1345 () M :unextractable)
(constructor const1346 () M :unextractable)
(constructor const1347 () MTy :unextractable)
(constructor const1348 () MTy :unextractable)
(constructor const1349 () M :unextractable)
(constructor const1350 () M :unextractable)
(constructor const1351 () M :unextractable)
(constructor const1352 () M :unextractable)
(constructor const1353 () M :unextractable)
(constructor const1354 () MTy :unextractable)
(constructor const1355 () MTy :unextractable)
(constructor const1356 () M :unextractable)
(constructor const1357 () M :unextractable)
(constructor const1358 () M :unextractable)
(constructor const1359 () M :unextractable)
(constructor const1360 () M :unextractable)
(constructor const1361 () MTy :unextractable)
(constructor const1362 () MTy :unextractable)
(constructor const1363 () M :unextractable)
(constructor const1364 () M :unextractable)
(constructor const1365 () M :unextractable)
(constructor const1366 () M :unextractable)
(constructor const1367 () MTy :unextractable)
(constructor const1368 () MTy :unextractable)
(constructor const1369 () MTy :unextractable)
(constructor const1370 () MTy :unextractable)
(constructor const1371 () M :unextractable)
(constructor const1372 () M :unextractable)
(constructor const1373 () M :unextractable)
(constructor const1374 () M :unextractable)
(constructor const1375 () MTy :unextractable)
(constructor const1376 () MTy :unextractable)
(constructor const1377 () M :unextractable)
(constructor const1378 () M :unextractable)
(constructor const1379 () M :unextractable)
(constructor const1380 () M :unextractable)
(constructor const1381 () M :unextractable)
(constructor const1382 () MTy :unextractable)
(constructor const1383 () MTy :unextractable)
(constructor const1384 () M :unextractable)
(constructor const1385 () M :unextractable)
(constructor const1386 () M :unextractable)
(constructor const1387 () M :unextractable)
(constructor const1388 () M :unextractable)
(constructor const1389 () M :unextractable)
(constructor const1390 () M :unextractable)
(constructor const1391 () MTy :unextractable)
(constructor const1392 () MTy :unextractable)
(constructor const1393 () M :unextractable)
(constructor const1394 () M :unextractable)
(constructor const1395 () M :unextractable)
(constructor const1396 () M :unextractable)
(constructor const1397 () MTy :unextractable)
(constructor const1398 () MTy :unextractable)
(constructor const1399 () M :unextractable)
(constructor const1400 () M :unextractable)
(constructor const1401 () M :unextractable)
(constructor const1402 () M :unextractable)
(constructor const1403 () M :unextractable)
(constructor const1404 () M :unextractable)
(constructor const1405 () MTy :unextractable)
(constructor const1406 () MTy :unextractable)
(constructor const1407 () M :unextractable)
(constructor const1408 () M :unextractable)
(constructor const1409 () M :unextractable)
(constructor const1410 () M :unextractable)
(constructor const1411 () M :unextractable)
(constructor const1412 () M :unextractable)
(constructor const1413 () M :unextractable)
(constructor const1414 () M :unextractable)
(constructor const1415 () MTy :unextractable)
(constructor const1416 () MTy :unextractable)
(constructor const1417 () M :unextractable)
(constructor const1418 () M :unextractable)
(constructor const1419 () MTy :unextractable)
(constructor const1420 () MTy :unextractable)
(constructor const1421 () M :unextractable)
(constructor const1422 () M :unextractable)
(constructor const1423 () M :unextractable)
(constructor const1424 () M :unextractable)
(constructor const1425 () MTy :unextractable)
(constructor const1426 () MTy :unextractable)
(constructor const1427 () M :unextractable)
(constructor const1428 () M :unextractable)
(constructor const1429 () M :unextractable)
(constructor const1430 () M :unextractable)
(constructor const1431 () M :unextractable)
(constructor const1432 () M :unextractable)
(constructor const1433 () MTy :unextractable)
(constructor const1434 () MTy :unextractable)
(constructor const1435 () M :unextractable)
(constructor const1436 () M :unextractable)
(constructor const1437 () M :unextractable)
(constructor const1438 () MTy :unextractable)
(constructor const1439 () MTy :unextractable)
(constructor const1440 () M :unextractable)
(constructor const1441 () M :unextractable)
(constructor const1442 () M :unextractable)
(constructor const1443 () M :unextractable)
(constructor const1444 () M :unextractable)
(constructor const1445 () MTy :unextractable)
(constructor const1446 () MTy :unextractable)
(constructor const1447 () M :unextractable)
(constructor const1448 () M :unextractable)
(constructor const1449 () M :unextractable)
(constructor const1450 () M :unextractable)
(constructor const1451 () M :unextractable)
(constructor const1452 () M :unextractable)
(constructor const1453 () M :unextractable)
(constructor const1454 () MTy :unextractable)
(constructor const1455 () MTy :unextractable)
(constructor const1456 () MTy :unextractable)
(constructor const1457 () MTy :unextractable)
(constructor const1458 () MTy :unextractable)
(constructor const1459 () MTy :unextractable)
(constructor const1460 () M :unextractable)
(constructor const1461 () MTy :unextractable)
(constructor const1462 () MTy :unextractable)
(constructor const1463 () M :unextractable)
(constructor const1464 () M :unextractable)
(constructor const1465 () M :unextractable)
(constructor const1466 () MTy :unextractable)
(constructor const1467 () MTy :unextractable)
(constructor const1468 () M :unextractable)
(constructor const1469 () M :unextractable)
(constructor const1470 () M :unextractable)
(constructor const1471 () M :unextractable)
(constructor const1472 () M :unextractable)
(constructor const1473 () MTy :unextractable)
(constructor const1474 () MTy :unextractable)
(constructor const1475 () M :unextractable)
(constructor const1476 () M :unextractable)
(constructor const1477 () M :unextractable)
(constructor const1478 () M :unextractable)
(constructor const1479 () M :unextractable)
(constructor const1480 () M :unextractable)
(constructor const1481 () M :unextractable)
(constructor const1482 () MTy :unextractable)
(constructor const1483 () MTy :unextractable)
(constructor const1484 () M :unextractable)
(constructor const1485 () M :unextractable)
(constructor const1486 () M :unextractable)
(constructor const1487 () MTy :unextractable)
(constructor const1488 () MTy :unextractable)
(constructor const1489 () M :unextractable)
(constructor const1490 () M :unextractable)
(constructor const1491 () M :unextractable)
(constructor const1492 () M :unextractable)
(constructor const1493 () M :unextractable)
(constructor const1494 () M :unextractable)
(constructor const1495 () MTy :unextractable)
(constructor const1496 () MTy :unextractable)
(constructor const1497 () M :unextractable)
(constructor const1498 () M :unextractable)
(constructor const1499 () M :unextractable)
(constructor const1500 () M :unextractable)
(constructor const1501 () M :unextractable)
(constructor const1502 () M :unextractable)
(constructor const1503 () M :unextractable)
(constructor const1504 () M :unextractable)
(constructor const1505 () MTy :unextractable)
(constructor const1506 () MTy :unextractable)
(constructor const1507 () M :unextractable)
(constructor const1508 () MTy :unextractable)
(constructor const1509 () MTy :unextractable)
(constructor const1510 () M :unextractable)
(constructor const1511 () MTy :unextractable)
(constructor const1512 () MTy :unextractable)
(constructor const1513 () M :unextractable)
(constructor const1514 () M :unextractable)
(constructor const1515 () M :unextractable)
(constructor const1516 () M :unextractable)
(constructor const1517 () M :unextractable)
(constructor const1518 () MTy :unextractable)
(constructor const1519 () MTy :unextractable)
(constructor const1520 () M :unextractable)
(constructor const1521 () M :unextractable)
(constructor const1522 () M :unextractable)
(constructor const1523 () M :unextractable)
(constructor const1524 () M :unextractable)
(constructor const1525 () M :unextractable)
(constructor const1526 () M :unextractable)
(constructor const1527 () MTy :unextractable)
(constructor const1528 () MTy :unextractable)
(constructor const1529 () M :unextractable)
(constructor const1530 () M :unextractable)
(constructor const1531 () M :unextractable)
(constructor const1532 () M :unextractable)
(constructor const1533 () M :unextractable)
(constructor const1534 () MTy :unextractable)
(constructor const1535 () MTy :unextractable)
(constructor const1536 () M :unextractable)
(constructor const1537 () M :unextractable)
(constructor const1538 () M :unextractable)
(constructor const1539 () M :unextractable)
(constructor const1540 () M :unextractable)
(constructor const1541 () M :unextractable)
(constructor const1542 () M :unextractable)
(constructor const1543 () MTy :unextractable)
(constructor const1544 () MTy :unextractable)
(constructor const1545 () M :unextractable)
(constructor const1546 () M :unextractable)
(constructor const1547 () M :unextractable)
(constructor const1548 () MTy :unextractable)
(constructor const1549 () MTy :unextractable)
(constructor const1550 () M :unextractable)
(constructor const1551 () MTy :unextractable)
(constructor const1552 () MTy :unextractable)
(constructor const1553 () M :unextractable)
(constructor const1554 () M :unextractable)
(constructor const1555 () M :unextractable)
(constructor const1556 () M :unextractable)
(constructor const1557 () MTy :unextractable)
(constructor const1558 () MTy :unextractable)
(constructor const1559 () M :unextractable)
(constructor const1560 () M :unextractable)
(constructor const1561 () M :unextractable)
(constructor const1562 () M :unextractable)
(constructor const1563 () M :unextractable)
(constructor const1564 () M :unextractable)
(constructor const1565 () MTy :unextractable)
(constructor const1566 () MTy :unextractable)
(constructor const1567 () M :unextractable)
(constructor const1568 () M :unextractable)
(constructor const1569 () M :unextractable)
(constructor const1570 () M :unextractable)
(constructor const1571 () M :unextractable)
(constructor const1572 () M :unextractable)
(constructor const1573 () M :unextractable)
(constructor const1574 () MTy :unextractable)
(constructor const1575 () MTy :unextractable)
(constructor const1576 () M :unextractable)
(constructor const1577 () MTy :unextractable)
(constructor const1578 () MTy :unextractable)
(constructor const1579 () M :unextractable)
(constructor const1580 () M :unextractable)
(constructor const1581 () M :unextractable)
(constructor const1582 () MTy :unextractable)
(constructor const1583 () MTy :unextractable)
(constructor const1584 () M :unextractable)
(constructor const1585 () M :unextractable)
(constructor const1586 () M :unextractable)
(constructor const1587 () M :unextractable)
(constructor const1588 () M :unextractable)
(constructor const1589 () M :unextractable)
(constructor const1590 () MTy :unextractable)
(constructor const1591 () MTy :unextractable)
(constructor const1592 () M :unextractable)
(constructor const1593 () MTy :unextractable)
(constructor const1594 () MTy :unextractable)
(constructor const1595 () M :unextractable)
(constructor const1596 () M :unextractable)
(constructor const1597 () M :unextractable)
(constructor const1598 () MTy :unextractable)
(constructor const1599 () MTy :unextractable)
(constructor const1600 () M :unextractable)
(constructor const1601 () M :unextractable)
(constructor const1602 () M :unextractable)
(constructor const1603 () M :unextractable)
(constructor const1604 () M :unextractable)
(constructor const1605 () MTy :unextractable)
(constructor const1606 () MTy :unextractable)
(constructor const1607 () M :unextractable)
(constructor const1608 () M :unextractable)
(constructor const1609 () M :unextractable)
(constructor const1610 () M :unextractable)
(constructor const1611 () M :unextractable)
(constructor const1612 () M :unextractable)
(constructor const1613 () M :unextractable)
(constructor const1614 () M :unextractable)
(constructor const1615 () M :unextractable)
(constructor const1616 () M :unextractable)
(constructor const1617 () M :unextractable)
(constructor const1618 () MTy :unextractable)
(constructor const1619 () MTy :unextractable)
(constructor const1620 () M :unextractable)
(constructor const1621 () M :unextractable)
(constructor const1622 () MTy :unextractable)
(constructor const1623 () MTy :unextractable)
(constructor const1624 () M :unextractable)
(constructor const1625 () M :unextractable)
(constructor const1626 () M :unextractable)
(constructor const1627 () M :unextractable)
(constructor const1628 () MTy :unextractable)
(constructor const1629 () MTy :unextractable)
(constructor const1630 () M :unextractable)
(constructor const1631 () M :unextractable)
(constructor const1632 () M :unextractable)
(constructor const1633 () M :unextractable)
(constructor const1634 () M :unextractable)
(constructor const1635 () M :unextractable)
(constructor const1636 () MTy :unextractable)
(constructor const1637 () MTy :unextractable)
(constructor const1638 () M :unextractable)
(constructor const1639 () M :unextractable)
(constructor const1640 () M :unextractable)
(constructor const1641 () MTy :unextractable)
(constructor const1642 () MTy :unextractable)
(constructor const1643 () M :unextractable)
(constructor const1644 () M :unextractable)
(constructor const1645 () M :unextractable)
(constructor const1646 () MTy :unextractable)
(constructor const1647 () MTy :unextractable)
(constructor const1648 () M :unextractable)
(constructor const1649 () M :unextractable)
(constructor const1650 () M :unextractable)
(constructor const1651 () M :unextractable)
(constructor const1652 () M :unextractable)
(constructor const1653 () M :unextractable)
(constructor const1654 () M :unextractable)
(constructor const1655 () M :unextractable)
(constructor const1656 () M :unextractable)
(constructor const1657 () M :unextractable)
(constructor const1658 () MTy :unextractable)
(constructor const1659 () MTy :unextractable)
(constructor const1660 () M :unextractable)
(constructor const1661 () MTy :unextractable)
(constructor const1662 () MTy :unextractable)
(constructor const1663 () M :unextractable)
(constructor const1664 () M :unextractable)
(constructor const1665 () M :unextractable)
(constructor const1666 () M :unextractable)
(constructor const1667 () M :unextractable)
(constructor const1668 () MTy :unextractable)
(constructor const1669 () MTy :unextractable)
(constructor const1670 () M :unextractable)
(constructor const1671 () M :unextractable)
(constructor const1672 () M :unextractable)
(constructor const1673 () M :unextractable)
(constructor const1674 () M :unextractable)
(constructor const1675 () MTy :unextractable)
(constructor const1676 () MTy :unextractable)
(constructor const1677 () MTy :unextractable)
(constructor const1678 () MTy :unextractable)
(constructor const1679 () M :unextractable)
(constructor const1680 () M :unextractable)
(constructor const1681 () M :unextractable)
(constructor const1682 () MTy :unextractable)
(constructor const1683 () MTy :unextractable)
(constructor const1684 () M :unextractable)
(constructor const1685 () M :unextractable)
(constructor const1686 () M :unextractable)
(constructor const1687 () MTy :unextractable)
(constructor const1688 () MTy :unextractable)
(constructor const1689 () MTy :unextractable)
(constructor const1690 () MTy :unextractable)
(constructor const1691 () M :unextractable)
(constructor const1692 () M :unextractable)
(constructor const1693 () M :unextractable)
(constructor const1694 () M :unextractable)
(constructor const1695 () M :unextractable)
(constructor const1696 () M :unextractable)
(constructor const1697 () M :unextractable)
(constructor const1698 () M :unextractable)
(constructor const1699 () MTy :unextractable)
(constructor const1700 () MTy :unextractable)
(constructor const1701 () M :unextractable)
(constructor const1702 () M :unextractable)
(constructor const1703 () M :unextractable)
(constructor const1704 () MTy :unextractable)
(constructor const1705 () MTy :unextractable)
(constructor const1706 () M :unextractable)
(constructor const1707 () M :unextractable)
(constructor const1708 () M :unextractable)
(constructor const1709 () M :unextractable)
(constructor const1710 () M :unextractable)
(constructor const1711 () MTy :unextractable)
(constructor const1712 () MTy :unextractable)
(constructor const1713 () M :unextractable)
(constructor const1714 () M :unextractable)
(constructor const1715 () M :unextractable)
(constructor const1716 () M :unextractable)
(constructor const1717 () M :unextractable)
(constructor const1718 () MTy :unextractable)
(constructor const1719 () MTy :unextractable)
(constructor const1720 () M :unextractable)
(constructor const1721 () MTy :unextractable)
(constructor const1722 () MTy :unextractable)
(constructor const1723 () M :unextractable)
(constructor const1724 () M :unextractable)
(constructor const1725 () M :unextractable)
(constructor const1726 () MTy :unextractable)
(constructor const1727 () MTy :unextractable)
(constructor const1728 () M :unextractable)
(constructor const1729 () M :unextractable)
(constructor const1730 () M :unextractable)
(constructor const1731 () MTy :unextractable)
(constructor const1732 () MTy :unextractable)
(constructor const1733 () M :unextractable)
(constructor const1734 () MTy :unextractable)
(constructor const1735 () MTy :unextractable)
(constructor const1736 () M :unextractable)
(constructor const1737 () MTy :unextractable)
(constructor const1738 () MTy :unextractable)
(constructor const1739 () M :unextractable)
(constructor const1740 () MTy :unextractable)
(constructor const1741 () MTy :unextractable)
(ruleset run-extract-commands)
(rule
 ()
 ((let ?sR (Var "R"))
  (set (const1) ?sR)
  (let ?slambda1 (Var "lambda1"))
  (set (const2) ?slambda1)
  (let ?slambda2 (Var "lambda2"))
  (set (const3) ?slambda2)
  (let ?sphi1 (Var "phi1"))
  (set (const4) ?sphi1)
  (let ?sphi2 (Var "phi2"))
  (set (const5) ?sphi2)
  (let ?tR (Varbinary64 "R"))
  (set (const6) ?tR)
  (let ?tlambda1 (Varbinary64 "lambda1"))
  (set (const7) ?tlambda1)
  (let ?tlambda2 (Varbinary64 "lambda2"))
  (set (const8) ?tlambda2)
  (let ?tphi1 (Varbinary64 "phi1"))
  (set (const9) ?tphi1)
  (let ?tphi2 (Varbinary64 "phi2"))
  (set (const10) ?tphi2)
  (let ?b1 (Num (bigrat (from-string "0") (from-string "1"))))
  (set (const11) ?b1)
  (let ?b2 (lower ?b1 "binary64"))
  (set (const12) ?b2)
  (let ?r3 (Approx ?sphi1 ?b2))
  (set (const13) ?r3)
  (let ?b5 (lower ?sR "binary64"))
  (set (const14) ?b5)
  (let ?r6 (Approx ?sR ?b5))
  (set (const15) ?r6)
  (let ?b7 (Sin ?sphi1))
  (set (const16) ?b7)
  (let ?b9 (Sin ?sphi2))
  (set (const17) ?b9)
  (let ?b10 (Mul ?b7 ?b9))
  (set (const18) ?b10)
  (let ?b11 (Cos ?sphi1))
  (set (const19) ?b11)
  (let ?b12 (Cos ?sphi2))
  (set (const20) ?b12)
  (let ?b13 (Mul ?b11 ?b12))
  (set (const21) ?b13)
  (let ?b16 (Sub ?slambda1 ?slambda2))
  (set (const22) ?b16)
  (let ?b17 (Cos ?b16))
  (set (const23) ?b17)
  (let ?b18 (Mul ?b13 ?b17))
  (set (const24) ?b18)
  (let ?b19 (Add ?b10 ?b18))
  (set (const25) ?b19)
  (let ?b20 (Acos ?b19))
  (set (const26) ?b20)
  (let ?b21 (Mul ?b20 ?sR))
  (set (const27) ?b21)
  (let ?b22 (Mul ?b12 ?b17))
  (set (const28) ?b22)
  (let ?b23 (Mul ?b11 ?b22))
  (set (const29) ?b23)
  (let ?b24 (Add ?b23 ?b10))
  (set (const30) ?b24)
  (let ?b25 (Acos ?b24))
  (set (const31) ?b25)
  (let ?b26 (Mul ?sR ?b25))
  (set (const32) ?b26)
  (let ?b27 (lower ?b26 "binary64"))
  (set (const33) ?b27)
  (let ?r28 (Approx ?b21 ?b27))
  (set (const34) ?r28)
  (let ?b29 (Cos ?slambda1))
  (set (const35) ?b29)
  (let ?b30 (Cos ?slambda2))
  (set (const36) ?b30)
  (let ?b31 (Mul ?b29 ?b30))
  (set (const37) ?b31)
  (let ?b32 (Sin ?slambda1))
  (set (const38) ?b32)
  (let ?b33 (Sin ?slambda2))
  (set (const39) ?b33)
  (let ?b34 (Mul ?b32 ?b33))
  (set (const40) ?b34)
  (let ?b35 (Add ?b31 ?b34))
  (set (const41) ?b35)
  (let ?b36 (Mul ?b13 ?b35))
  (set (const42) ?b36)
  (let ?b37 (Add ?b10 ?b36))
  (set (const43) ?b37)
  (let ?b38 (Acos ?b37))
  (set (const44) ?b38)
  (let ?b39 (Mul ?b38 ?sR))
  (set (const45) ?b39)
  (let ?b40 (Mul ?b12 ?b35))
  (set (const46) ?b40)
  (let ?b41 (Mul ?b11 ?b40))
  (set (const47) ?b41)
  (let ?b42 (Add ?b41 ?b10))
  (set (const48) ?b42)
  (let ?b43 (Acos ?b42))
  (set (const49) ?b43)
  (let ?b44 (Mul ?sR ?b43))
  (set (const50) ?b44)
  (let ?b45 (lower ?b44 "binary64"))
  (set (const51) ?b45)
  (let ?r46 (Approx ?b39 ?b45))
  (set (const52) ?r46)
  (let ?b47 (lower ?slambda1 "binary64"))
  (set (const53) ?b47)
  (let ?r48 (Approx ?slambda1 ?b47))
  (set (const54) ?r48)
  (let ?b49 (Num (bigrat (from-string "-1") (from-string "1"))))
  (set (const55) ?b49)
  (let ?b50 (Mul ?b49 ?slambda2))
  (set (const56) ?b50)
  (let ?b51 (lower ?b50 "binary64"))
  (set (const57) ?b51)
  (let ?r52 (Approx ?b16 ?b51))
  (set (const58) ?r52)
  (let ?b53 (lower ?b16 "binary64"))
  (set (const59) ?b53)
  (let ?r54 (Approx ?b16 ?b53))
  (set (const60) ?r54)
  (let ?b55 (Neg ?slambda2))
  (set (const61) ?b55)
  (let ?b56 (Cos ?b55))
  (set (const62) ?b56)
  (let ?b57 (lower ?b56 "binary64"))
  (set (const63) ?b57)
  (let ?r58 (Approx ?b17 ?b57))
  (set (const64) ?r58)
  (let ?b59 (Sin ?b55))
  (set (const65) ?b59)
  (let ?b60 (Mul ?slambda1 ?b59))
  (set (const66) ?b60)
  (let ?b61 (Mul ?b49 ?b60))
  (set (const67) ?b61)
  (let ?b62 (Add ?b56 ?b61))
  (set (const68) ?b62)
  (let ?b63 (lower ?b62 "binary64"))
  (set (const69) ?b63)
  (let ?r64 (Approx ?b17 ?b63))
  (set (const70) ?r64)
  (let ?b65 (Num (bigrat (from-string "-1") (from-string "2"))))
  (set (const71) ?b65)
  (let ?b66 (Mul ?slambda1 ?b56))
  (set (const72) ?b66)
  (let ?b67 (Mul ?b65 ?b66))
  (set (const73) ?b67)
  (let ?b68 (Sub ?b67 ?b59))
  (set (const74) ?b68)
  (let ?b69 (Mul ?slambda1 ?b68))
  (set (const75) ?b69)
  (let ?b70 (Add ?b56 ?b69))
  (set (const76) ?b70)
  (let ?b71 (lower ?b70 "binary64"))
  (set (const77) ?b71)
  (let ?r72 (Approx ?b17 ?b71))
  (set (const78) ?r72)
  (let ?b73 (Mul ?b65 ?b56))
  (set (const79) ?b73)
  (let ?b74 (Num (bigrat (from-string "1") (from-string "6"))))
  (set (const80) ?b74)
  (let ?b75 (Mul ?b74 ?b60))
  (set (const81) ?b75)
  (let ?b76 (Add ?b73 ?b75))
  (set (const82) ?b76)
  (let ?b77 (Mul ?slambda1 ?b76))
  (set (const83) ?b77)
  (let ?b78 (Sub ?b77 ?b59))
  (set (const84) ?b78)
  (let ?b79 (Mul ?slambda1 ?b78))
  (set (const85) ?b79)
  (let ?b80 (Add ?b56 ?b79))
  (set (const86) ?b80)
  (let ?b81 (lower ?b80 "binary64"))
  (set (const87) ?b81)
  (let ?r82 (Approx ?b17 ?b81))
  (set (const88) ?r82)
  (let ?b83 (lower ?b60 "binary64"))
  (set (const89) ?b83)
  (let ?r84 (Approx ?b60 ?b83))
  (set (const90) ?r84)
  (let ?b85 (lower ?b61 "binary64"))
  (set (const91) ?b85)
  (let ?r86 (Approx ?b61 ?b85))
  (set (const92) ?r86)
  (let ?b87 (Num (bigrat (from-string "1") (from-string "1"))))
  (set (const93) ?b87)
  (let ?b88 (lower ?b87 "binary64"))
  (set (const94) ?b88)
  (let ?r89 (Approx ?b29 ?b88))
  (set (const95) ?r89)
  (let ?b90 (Num (bigrat (from-string "2") (from-string "1"))))
  (set (const96) ?b90)
  (let ?b91 (Pow ?slambda1 ?b90))
  (set (const97) ?b91)
  (let ?b92 (Mul ?b65 ?b91))
  (set (const98) ?b92)
  (let ?b93 (Add ?b87 ?b92))
  (set (const99) ?b93)
  (let ?b94 (lower ?b93 "binary64"))
  (set (const100) ?b94)
  (let ?r95 (Approx ?b29 ?b94))
  (set (const101) ?r95)
  (let ?b96 (Num (bigrat (from-string "1") (from-string "24"))))
  (set (const102) ?b96)
  (let ?b97 (Mul ?b96 ?b91))
  (set (const103) ?b97)
  (let ?b98 (Num (bigrat (from-string "1") (from-string "2"))))
  (set (const104) ?b98)
  (let ?b99 (Sub ?b97 ?b98))
  (set (const105) ?b99)
  (let ?b100 (Mul ?b91 ?b99))
  (set (const106) ?b100)
  (let ?b101 (Add ?b87 ?b100))
  (set (const107) ?b101)
  (let ?b102 (lower ?b101 "binary64"))
  (set (const108) ?b102)
  (let ?r103 (Approx ?b29 ?b102))
  (set (const109) ?r103)
  (let ?b104 (Num (bigrat (from-string "-1") (from-string "720"))))
  (set (const110) ?b104)
  (let ?b105 (Mul ?b104 ?b91))
  (set (const111) ?b105)
  (let ?b106 (Add ?b96 ?b105))
  (set (const112) ?b106)
  (let ?b107 (Mul ?b91 ?b106))
  (set (const113) ?b107)
  (let ?b108 (Sub ?b107 ?b98))
  (set (const114) ?b108)
  (let ?b109 (Mul ?b91 ?b108))
  (set (const115) ?b109)
  (let ?b110 (Add ?b87 ?b109))
  (set (const116) ?b110)
  (let ?b111 (lower ?b110 "binary64"))
  (set (const117) ?b111)
  (let ?r112 (Approx ?b29 ?b111))
  (set (const118) ?r112)
  (let ?b113 (Num (bigrat (from-string "-1") (from-string "6"))))
  (set (const119) ?b113)
  (let ?b114 (Mul ?b113 ?b91))
  (set (const120) ?b114)
  (let ?b115 (Add ?b87 ?b114))
  (set (const121) ?b115)
  (let ?b116 (Mul ?slambda1 ?b115))
  (set (const122) ?b116)
  (let ?b117 (lower ?b116 "binary64"))
  (set (const123) ?b117)
  (let ?r118 (Approx ?b32 ?b117))
  (set (const124) ?r118)
  (let ?b119 (Num (bigrat (from-string "1") (from-string "120"))))
  (set (const125) ?b119)
  (let ?b120 (Mul ?b119 ?b91))
  (set (const126) ?b120)
  (let ?b121 (Sub ?b120 ?b74))
  (set (const127) ?b121)
  (let ?b122 (Mul ?b91 ?b121))
  (set (const128) ?b122)
  (let ?b123 (Add ?b87 ?b122))
  (set (const129) ?b123)
  (let ?b124 (Mul ?slambda1 ?b123))
  (set (const130) ?b124)
  (let ?b125 (lower ?b124 "binary64"))
  (set (const131) ?b125)
  (let ?r126 (Approx ?b32 ?b125))
  (set (const132) ?r126)
  (let ?b127 (Num (bigrat (from-string "-1") (from-string "5040"))))
  (set (const133) ?b127)
  (let ?b128 (Mul ?b127 ?b91))
  (set (const134) ?b128)
  (let ?b129 (Add ?b119 ?b128))
  (set (const135) ?b129)
  (let ?b130 (Mul ?b91 ?b129))
  (set (const136) ?b130)
  (let ?b131 (Sub ?b130 ?b74))
  (set (const137) ?b131)
  (let ?b132 (Mul ?b91 ?b131))
  (set (const138) ?b132)
  (let ?b133 (Add ?b87 ?b132))
  (set (const139) ?b133)
  (let ?b134 (Mul ?slambda1 ?b133))
  (set (const140) ?b134)
  (let ?b135 (lower ?b134 "binary64"))
  (set (const141) ?b135)
  (let ?r136 (Approx ?b32 ?b135))
  (set (const142) ?r136)
  (let ?b137 (Mul ?slambda1 ?b33))
  (set (const143) ?b137)
  (let ?b138 (lower ?b137 "binary64"))
  (set (const144) ?b138)
  (let ?r139 (Approx ?b34 ?b138))
  (set (const145) ?r139)
  (let ?b140 (Mul ?b91 ?b33))
  (set (const146) ?b140)
  (let ?b141 (Mul ?b113 ?b140))
  (set (const147) ?b141)
  (let ?b142 (Add ?b33 ?b141))
  (set (const148) ?b142)
  (let ?b143 (Mul ?slambda1 ?b142))
  (set (const149) ?b143)
  (let ?b144 (lower ?b143 "binary64"))
  (set (const150) ?b144)
  (let ?r145 (Approx ?b34 ?b144))
  (set (const151) ?r145)
  (let ?b146 (Mul ?b113 ?b33))
  (set (const152) ?b146)
  (let ?b147 (Mul ?b119 ?b140))
  (set (const153) ?b147)
  (let ?b148 (Add ?b146 ?b147))
  (set (const154) ?b148)
  (let ?b149 (Mul ?b91 ?b148))
  (set (const155) ?b149)
  (let ?b150 (Add ?b33 ?b149))
  (set (const156) ?b150)
  (let ?b151 (Mul ?slambda1 ?b150))
  (set (const157) ?b151)
  (let ?b152 (lower ?b151 "binary64"))
  (set (const158) ?b152)
  (let ?r153 (Approx ?b34 ?b152))
  (set (const159) ?r153)
  (let ?b154 (Mul ?b127 ?b140))
  (set (const160) ?b154)
  (let ?b155 (Mul ?b119 ?b33))
  (set (const161) ?b155)
  (let ?b156 (Add ?b154 ?b155))
  (set (const162) ?b156)
  (let ?b157 (Mul ?b91 ?b156))
  (set (const163) ?b157)
  (let ?b158 (Add ?b146 ?b157))
  (set (const164) ?b158)
  (let ?b159 (Mul ?b91 ?b158))
  (set (const165) ?b159)
  (let ?b160 (Add ?b33 ?b159))
  (set (const166) ?b160)
  (let ?b161 (Mul ?slambda1 ?b160))
  (set (const167) ?b161)
  (let ?b162 (lower ?b161 "binary64"))
  (set (const168) ?b162)
  (let ?r163 (Approx ?b34 ?b162))
  (set (const169) ?r163)
  (let ?b164 (lower ?b30 "binary64"))
  (set (const170) ?b164)
  (let ?r165 (Approx ?b35 ?b164))
  (set (const171) ?r165)
  (let ?b166 (Add ?b30 ?b137))
  (set (const172) ?b166)
  (let ?b167 (lower ?b166 "binary64"))
  (set (const173) ?b167)
  (let ?r168 (Approx ?b35 ?b167))
  (set (const174) ?r168)
  (let ?b169 (Mul ?slambda1 ?b30))
  (set (const175) ?b169)
  (let ?b170 (Mul ?b65 ?b169))
  (set (const176) ?b170)
  (let ?b171 (Add ?b33 ?b170))
  (set (const177) ?b171)
  (let ?b172 (Mul ?slambda1 ?b171))
  (set (const178) ?b172)
  (let ?b173 (Add ?b30 ?b172))
  (set (const179) ?b173)
  (let ?b174 (lower ?b173 "binary64"))
  (set (const180) ?b174)
  (let ?r175 (Approx ?b35 ?b174))
  (set (const181) ?r175)
  (let ?b176 (Mul ?b65 ?b30))
  (set (const182) ?b176)
  (let ?b177 (Mul ?b113 ?b137))
  (set (const183) ?b177)
  (let ?b178 (Add ?b176 ?b177))
  (set (const184) ?b178)
  (let ?b179 (Mul ?slambda1 ?b178))
  (set (const185) ?b179)
  (let ?b180 (Add ?b33 ?b179))
  (set (const186) ?b180)
  (let ?b181 (Mul ?slambda1 ?b180))
  (set (const187) ?b181)
  (let ?b182 (Add ?b30 ?b181))
  (set (const188) ?b182)
  (let ?b183 (lower ?b182 "binary64"))
  (set (const189) ?b183)
  (let ?r184 (Approx ?b35 ?b183))
  (set (const190) ?r184)
  (let ?b185 (Mul ?b12 ?b56))
  (set (const191) ?b185)
  (let ?b186 (Mul ?b11 ?b185))
  (set (const192) ?b186)
  (let ?b187 (lower ?b186 "binary64"))
  (set (const193) ?b187)
  (let ?r188 (Approx ?b18 ?b187))
  (set (const194) ?r188)
  (let ?b189 (Mul ?b12 ?b59))
  (set (const195) ?b189)
  (let ?b190 (Mul ?b11 ?b189))
  (set (const196) ?b190)
  (let ?b191 (Mul ?slambda1 ?b190))
  (set (const197) ?b191)
  (let ?b192 (Mul ?b49 ?b191))
  (set (const198) ?b192)
  (let ?b193 (Add ?b192 ?b186))
  (set (const199) ?b193)
  (let ?b194 (lower ?b193 "binary64"))
  (set (const200) ?b194)
  (let ?r195 (Approx ?b18 ?b194))
  (set (const201) ?r195)
  (let ?b196 (Mul ?b49 ?b190))
  (set (const202) ?b196)
  (let ?b197 (Mul ?slambda1 ?b186))
  (set (const203) ?b197)
  (let ?b198 (Mul ?b65 ?b197))
  (set (const204) ?b198)
  (let ?b199 (Add ?b196 ?b198))
  (set (const205) ?b199)
  (let ?b200 (Mul ?slambda1 ?b199))
  (set (const206) ?b200)
  (let ?b201 (Add ?b200 ?b186))
  (set (const207) ?b201)
  (let ?b202 (lower ?b201 "binary64"))
  (set (const208) ?b202)
  (let ?r203 (Approx ?b18 ?b202))
  (set (const209) ?r203)
  (let ?b204 (Mul ?b65 ?b186))
  (set (const210) ?b204)
  (let ?b205 (Mul ?b74 ?b191))
  (set (const211) ?b205)
  (let ?b206 (Add ?b204 ?b205))
  (set (const212) ?b206)
  (let ?b207 (Mul ?slambda1 ?b206))
  (set (const213) ?b207)
  (let ?b208 (Add ?b196 ?b207))
  (set (const214) ?b208)
  (let ?b209 (Mul ?slambda1 ?b208))
  (set (const215) ?b209)
  (let ?b210 (Add ?b209 ?b186))
  (set (const216) ?b210)
  (let ?b211 (lower ?b210 "binary64"))
  (set (const217) ?b211)
  (let ?r212 (Approx ?b18 ?b211))
  (set (const218) ?r212)
  (let ?b213 (Mul ?b30 ?b12))
  (set (const219) ?b213)
  (let ?b214 (lower ?b213 "binary64"))
  (set (const220) ?b214)
  (let ?r215 (Approx ?b40 ?b214))
  (set (const221) ?r215)
  (let ?b216 (Mul ?b12 ?b33))
  (set (const222) ?b216)
  (let ?b217 (Mul ?slambda1 ?b216))
  (set (const223) ?b217)
  (let ?b218 (Add ?b217 ?b213))
  (set (const224) ?b218)
  (let ?b219 (lower ?b218 "binary64"))
  (set (const225) ?b219)
  (let ?r220 (Approx ?b40 ?b219))
  (set (const226) ?r220)
  (let ?b221 (Mul ?slambda1 ?b213))
  (set (const227) ?b221)
  (let ?b222 (Mul ?b65 ?b221))
  (set (const228) ?b222)
  (let ?b223 (Add ?b222 ?b216))
  (set (const229) ?b223)
  (let ?b224 (Mul ?slambda1 ?b223))
  (set (const230) ?b224)
  (let ?b225 (Add ?b224 ?b213))
  (set (const231) ?b225)
  (let ?b226 (lower ?b225 "binary64"))
  (set (const232) ?b226)
  (let ?r227 (Approx ?b40 ?b226))
  (set (const233) ?r227)
  (let ?b228 (Mul ?b65 ?b213))
  (set (const234) ?b228)
  (let ?b229 (Mul ?b113 ?b217))
  (set (const235) ?b229)
  (let ?b230 (Add ?b228 ?b229))
  (set (const236) ?b230)
  (let ?b231 (Mul ?slambda1 ?b230))
  (set (const237) ?b231)
  (let ?b232 (Add ?b231 ?b216))
  (set (const238) ?b232)
  (let ?b233 (Mul ?slambda1 ?b232))
  (set (const239) ?b233)
  (let ?b234 (Add ?b233 ?b213))
  (set (const240) ?b234)
  (let ?b235 (lower ?b234 "binary64"))
  (set (const241) ?b235)
  (let ?r236 (Approx ?b40 ?b235))
  (set (const242) ?r236)
  (let ?b237 (Mul ?b30 ?b13))
  (set (const243) ?b237)
  (let ?b238 (Add ?b237 ?b10))
  (set (const244) ?b238)
  (let ?b239 (lower ?b238 "binary64"))
  (set (const245) ?b239)
  (let ?r240 (Approx ?b42 ?b239))
  (set (const246) ?r240)
  (let ?b241 (Mul ?b11 ?b216))
  (set (const247) ?b241)
  (let ?b242 (Mul ?slambda1 ?b241))
  (set (const248) ?b242)
  (let ?b243 (Add ?b242 ?b238))
  (set (const249) ?b243)
  (let ?b244 (lower ?b243 "binary64"))
  (set (const250) ?b244)
  (let ?r245 (Approx ?b42 ?b244))
  (set (const251) ?r245)
  (let ?b246 (Mul ?slambda1 ?b237))
  (set (const252) ?b246)
  (let ?b247 (Mul ?b65 ?b246))
  (set (const253) ?b247)
  (let ?b248 (Add ?b247 ?b241))
  (set (const254) ?b248)
  (let ?b249 (Mul ?slambda1 ?b248))
  (set (const255) ?b249)
  (let ?b250 (Add ?b249 ?b238))
  (set (const256) ?b250)
  (let ?b251 (lower ?b250 "binary64"))
  (set (const257) ?b251)
  (let ?r252 (Approx ?b42 ?b251))
  (set (const258) ?r252)
  (let ?b253 (Mul ?b65 ?b237))
  (set (const259) ?b253)
  (let ?b254 (Mul ?b113 ?b242))
  (set (const260) ?b254)
  (let ?b255 (Add ?b253 ?b254))
  (set (const261) ?b255)
  (let ?b256 (Mul ?slambda1 ?b255))
  (set (const262) ?b256)
  (let ?b257 (Add ?b256 ?b241))
  (set (const263) ?b257)
  (let ?b258 (Mul ?slambda1 ?b257))
  (set (const264) ?b258)
  (let ?b259 (Add ?b258 ?b238))
  (set (const265) ?b259)
  (let ?b260 (lower ?b259 "binary64"))
  (set (const266) ?b260)
  (let ?r261 (Approx ?b42 ?b260))
  (set (const267) ?r261)
  (let ?b262 (Mul ?sphi1 ?sphi2))
  (set (const268) ?b262)
  (let ?b263 (Add ?b17 ?b262))
  (set (const269) ?b263)
  (let ?b264 (Add ?b56 ?b262))
  (set (const270) ?b264)
  (let ?b265 (lower ?b264 "binary64"))
  (set (const271) ?b265)
  (let ?r266 (Approx ?b263 ?b265))
  (set (const272) ?r266)
  (let ?b267 (Add ?b61 ?b262))
  (set (const273) ?b267)
  (let ?b268 (Add ?b56 ?b267))
  (set (const274) ?b268)
  (let ?b269 (lower ?b268 "binary64"))
  (set (const275) ?b269)
  (let ?r270 (Approx ?b263 ?b269))
  (set (const276) ?r270)
  (let ?b271 (Add ?b69 ?b262))
  (set (const277) ?b271)
  (let ?b272 (Add ?b56 ?b271))
  (set (const278) ?b272)
  (let ?b273 (lower ?b272 "binary64"))
  (set (const279) ?b273)
  (let ?r274 (Approx ?b263 ?b273))
  (set (const280) ?r274)
  (let ?b275 (Add ?b79 ?b262))
  (set (const281) ?b275)
  (let ?b276 (Add ?b56 ?b275))
  (set (const282) ?b276)
  (let ?b277 (lower ?b276 "binary64"))
  (set (const283) ?b277)
  (let ?r278 (Approx ?b263 ?b277))
  (set (const284) ?r278)
  (let ?b279 (Mul ?sphi1 ?b9))
  (set (const285) ?b279)
  (let ?b280 (Add ?b279 ?b22))
  (set (const286) ?b280)
  (let ?b281 (Add ?b279 ?b185))
  (set (const287) ?b281)
  (let ?b282 (lower ?b281 "binary64"))
  (set (const288) ?b282)
  (let ?r283 (Approx ?b280 ?b282))
  (set (const289) ?r283)
  (let ?b284 (Mul ?slambda1 ?b189))
  (set (const290) ?b284)
  (let ?b285 (Mul ?b49 ?b284))
  (set (const291) ?b285)
  (let ?b286 (Add ?b285 ?b281))
  (set (const292) ?b286)
  (let ?b287 (lower ?b286 "binary64"))
  (set (const293) ?b287)
  (let ?r288 (Approx ?b280 ?b287))
  (set (const294) ?r288)
  (let ?b289 (Mul ?b49 ?b189))
  (set (const295) ?b289)
  (let ?b290 (Mul ?slambda1 ?b185))
  (set (const296) ?b290)
  (let ?b291 (Mul ?b65 ?b290))
  (set (const297) ?b291)
  (let ?b292 (Add ?b289 ?b291))
  (set (const298) ?b292)
  (let ?b293 (Mul ?slambda1 ?b292))
  (set (const299) ?b293)
  (let ?b294 (Add ?b293 ?b281))
  (set (const300) ?b294)
  (let ?b295 (lower ?b294 "binary64"))
  (set (const301) ?b295)
  (let ?r296 (Approx ?b280 ?b295))
  (set (const302) ?r296)
  (let ?b297 (Mul ?b65 ?b185))
  (set (const303) ?b297)
  (let ?b298 (Mul ?b74 ?b284))
  (set (const304) ?b298)
  (let ?b299 (Add ?b297 ?b298))
  (set (const305) ?b299)
  (let ?b300 (Mul ?slambda1 ?b299))
  (set (const306) ?b300)
  (let ?b301 (Add ?b289 ?b300))
  (set (const307) ?b301)
  (let ?b302 (Mul ?slambda1 ?b301))
  (set (const308) ?b302)
  (let ?b303 (Add ?b302 ?b281))
  (set (const309) ?b303)
  (let ?b304 (lower ?b303 "binary64"))
  (set (const310) ?b304)
  (let ?r305 (Approx ?b280 ?b304))
  (set (const311) ?r305)
  (let ?b306 (Pi))
  (set (const312) ?b306)
  (let ?b307 (Mul ?b98 ?b306))
  (set (const313) ?b307)
  (let ?b308 (Add ?b307 ?b16))
  (set (const314) ?b308)
  (let ?b309 (Sub ?b307 ?slambda2))
  (set (const315) ?b309)
  (let ?b310 (lower ?b309 "binary64"))
  (set (const316) ?b310)
  (let ?r311 (Approx ?b308 ?b310))
  (set (const317) ?r311)
  (let ?b312 (Add ?slambda1 ?b307))
  (set (const318) ?b312)
  (let ?b313 (Sub ?b312 ?slambda2))
  (set (const319) ?b313)
  (let ?b314 (lower ?b313 "binary64"))
  (set (const320) ?b314)
  (let ?r315 (Approx ?b308 ?b314))
  (set (const321) ?r315)
  (let ?b316 (Sub ?b308 ?sphi2))
  (set (const322) ?b316)
  (let ?b317 (Add ?slambda2 ?sphi2))
  (set (const323) ?b317)
  (let ?b318 (Sub ?b307 ?b317))
  (set (const324) ?b318)
  (let ?b319 (lower ?b318 "binary64"))
  (set (const325) ?b319)
  (let ?r320 (Approx ?b316 ?b319))
  (set (const326) ?r320)
  (let ?b321 (Sub ?b312 ?b317))
  (set (const327) ?b321)
  (let ?b322 (lower ?b321 "binary64"))
  (set (const328) ?b322)
  (let ?r323 (Approx ?b316 ?b322))
  (set (const329) ?r323)
  (let ?b324 (Sin ?b316))
  (set (const330) ?b324)
  (let ?b325 (Sin ?b318))
  (set (const331) ?b325)
  (let ?b326 (lower ?b325 "binary64"))
  (set (const332) ?b326)
  (let ?r327 (Approx ?b324 ?b326))
  (set (const333) ?r327)
  (let ?b328 (Cos ?b318))
  (set (const334) ?b328)
  (let ?b329 (Mul ?slambda1 ?b328))
  (set (const335) ?b329)
  (let ?b330 (Add ?b325 ?b329))
  (set (const336) ?b330)
  (let ?b331 (lower ?b330 "binary64"))
  (set (const337) ?b331)
  (let ?r332 (Approx ?b324 ?b331))
  (set (const338) ?r332)
  (let ?b333 (Mul ?slambda1 ?b325))
  (set (const339) ?b333)
  (let ?b334 (Mul ?b65 ?b333))
  (set (const340) ?b334)
  (let ?b335 (Add ?b328 ?b334))
  (set (const341) ?b335)
  (let ?b336 (Mul ?slambda1 ?b335))
  (set (const342) ?b336)
  (let ?b337 (Add ?b325 ?b336))
  (set (const343) ?b337)
  (let ?b338 (lower ?b337 "binary64"))
  (set (const344) ?b338)
  (let ?r339 (Approx ?b324 ?b338))
  (set (const345) ?r339)
  (let ?b340 (Mul ?b65 ?b325))
  (set (const346) ?b340)
  (let ?b341 (Mul ?b113 ?b329))
  (set (const347) ?b341)
  (let ?b342 (Add ?b340 ?b341))
  (set (const348) ?b342)
  (let ?b343 (Mul ?slambda1 ?b342))
  (set (const349) ?b343)
  (let ?b344 (Add ?b328 ?b343))
  (set (const350) ?b344)
  (let ?b345 (Mul ?slambda1 ?b344))
  (set (const351) ?b345)
  (let ?b346 (Add ?b325 ?b345))
  (set (const352) ?b346)
  (let ?b347 (lower ?b346 "binary64"))
  (set (const353) ?b347)
  (let ?r348 (Approx ?b324 ?b347))
  (set (const354) ?r348)
  (let ?b349 (Add ?b308 ?sphi2))
  (set (const355) ?b349)
  (let ?b350 (Add ?sphi2 ?b307))
  (set (const356) ?b350)
  (let ?b351 (Sub ?b350 ?slambda2))
  (set (const357) ?b351)
  (let ?b352 (lower ?b351 "binary64"))
  (set (const358) ?b352)
  (let ?r353 (Approx ?b349 ?b352))
  (set (const359) ?r353)
  (let ?b354 (Add ?slambda1 ?b350))
  (set (const360) ?b354)
  (let ?b355 (Sub ?b354 ?slambda2))
  (set (const361) ?b355)
  (let ?b356 (lower ?b355 "binary64"))
  (set (const362) ?b356)
  (let ?r357 (Approx ?b349 ?b356))
  (set (const363) ?r357)
  (let ?b358 (Sin ?b349))
  (set (const364) ?b358)
  (let ?b359 (Sin ?b351))
  (set (const365) ?b359)
  (let ?b360 (lower ?b359 "binary64"))
  (set (const366) ?b360)
  (let ?r361 (Approx ?b358 ?b360))
  (set (const367) ?r361)
  (let ?b362 (Cos ?b351))
  (set (const368) ?b362)
  (let ?b363 (Mul ?slambda1 ?b362))
  (set (const369) ?b363)
  (let ?b364 (Add ?b359 ?b363))
  (set (const370) ?b364)
  (let ?b365 (lower ?b364 "binary64"))
  (set (const371) ?b365)
  (let ?r366 (Approx ?b358 ?b365))
  (set (const372) ?r366)
  (let ?b367 (Mul ?slambda1 ?b359))
  (set (const373) ?b367)
  (let ?b368 (Mul ?b65 ?b367))
  (set (const374) ?b368)
  (let ?b369 (Add ?b362 ?b368))
  (set (const375) ?b369)
  (let ?b370 (Mul ?slambda1 ?b369))
  (set (const376) ?b370)
  (let ?b371 (Add ?b359 ?b370))
  (set (const377) ?b371)
  (let ?b372 (lower ?b371 "binary64"))
  (set (const378) ?b372)
  (let ?r373 (Approx ?b358 ?b372))
  (set (const379) ?r373)
  (let ?b374 (Mul ?b65 ?b359))
  (set (const380) ?b374)
  (let ?b375 (Mul ?b113 ?b363))
  (set (const381) ?b375)
  (let ?b376 (Add ?b374 ?b375))
  (set (const382) ?b376)
  (let ?b377 (Mul ?slambda1 ?b376))
  (set (const383) ?b377)
  (let ?b378 (Add ?b362 ?b377))
  (set (const384) ?b378)
  (let ?b379 (Mul ?slambda1 ?b378))
  (set (const385) ?b379)
  (let ?b380 (Add ?b359 ?b379))
  (set (const386) ?b380)
  (let ?b381 (lower ?b380 "binary64"))
  (set (const387) ?b381)
  (let ?r382 (Approx ?b358 ?b381))
  (set (const388) ?r382)
  (let ?b383 (Add ?b324 ?b358))
  (set (const389) ?b383)
  (let ?b384 (Add ?b325 ?b359))
  (set (const390) ?b384)
  (let ?b385 (lower ?b384 "binary64"))
  (set (const391) ?b385)
  (let ?r386 (Approx ?b383 ?b385))
  (set (const392) ?r386)
  (let ?b387 (Add ?b328 ?b362))
  (set (const393) ?b387)
  (let ?b388 (Mul ?slambda1 ?b387))
  (set (const394) ?b388)
  (let ?b389 (Add ?b359 ?b388))
  (set (const395) ?b389)
  (let ?b390 (Add ?b325 ?b389))
  (set (const396) ?b390)
  (let ?b391 (lower ?b390 "binary64"))
  (set (const397) ?b391)
  (let ?r392 (Approx ?b383 ?b391))
  (set (const398) ?r392)
  (let ?b393 (Add ?b340 ?b374))
  (set (const399) ?b393)
  (let ?b394 (Mul ?slambda1 ?b393))
  (set (const400) ?b394)
  (let ?b395 (Add ?b362 ?b394))
  (set (const401) ?b395)
  (let ?b396 (Add ?b328 ?b395))
  (set (const402) ?b396)
  (let ?b397 (Mul ?slambda1 ?b396))
  (set (const403) ?b397)
  (let ?b398 (Add ?b359 ?b397))
  (set (const404) ?b398)
  (let ?b399 (Add ?b325 ?b398))
  (set (const405) ?b399)
  (let ?b400 (lower ?b399 "binary64"))
  (set (const406) ?b400)
  (let ?r401 (Approx ?b383 ?b400))
  (set (const407) ?r401)
  (let ?b402 (Mul ?b113 ?b328))
  (set (const408) ?b402)
  (let ?b403 (Mul ?b113 ?b362))
  (set (const409) ?b403)
  (let ?b404 (Add ?b402 ?b403))
  (set (const410) ?b404)
  (let ?b405 (Mul ?slambda1 ?b404))
  (set (const411) ?b405)
  (let ?b406 (Add ?b374 ?b405))
  (set (const412) ?b406)
  (let ?b407 (Add ?b340 ?b406))
  (set (const413) ?b407)
  (let ?b408 (Mul ?slambda1 ?b407))
  (set (const414) ?b408)
  (let ?b409 (Add ?b362 ?b408))
  (set (const415) ?b409)
  (let ?b410 (Add ?b328 ?b409))
  (set (const416) ?b410)
  (let ?b411 (Mul ?slambda1 ?b410))
  (set (const417) ?b411)
  (let ?b412 (Add ?b359 ?b411))
  (set (const418) ?b412)
  (let ?b413 (Add ?b325 ?b412))
  (set (const419) ?b413)
  (let ?b414 (lower ?b413 "binary64"))
  (set (const420) ?b414)
  (let ?r415 (Approx ?b383 ?b414))
  (set (const421) ?r415)
  (let ?b416 (Div ?b383 ?b90))
  (set (const422) ?b416)
  (let ?b417 (Mul ?b98 ?b384))
  (set (const423) ?b417)
  (let ?b418 (lower ?b417 "binary64"))
  (set (const424) ?b418)
  (let ?r419 (Approx ?b416 ?b418))
  (set (const425) ?r419)
  (let ?b420 (Mul ?b98 ?b388))
  (set (const426) ?b420)
  (let ?b421 (Add ?b420 ?b417))
  (set (const427) ?b421)
  (let ?b422 (lower ?b421 "binary64"))
  (set (const428) ?b422)
  (let ?r423 (Approx ?b416 ?b422))
  (set (const429) ?r423)
  (let ?b424 (Mul ?b98 ?b394))
  (set (const430) ?b424)
  (let ?b425 (Mul ?b98 ?b387))
  (set (const431) ?b425)
  (let ?b426 (Add ?b424 ?b425))
  (set (const432) ?b426)
  (let ?b427 (Mul ?slambda1 ?b426))
  (set (const433) ?b427)
  (let ?b428 (Add ?b417 ?b427))
  (set (const434) ?b428)
  (let ?b429 (lower ?b428 "binary64"))
  (set (const435) ?b429)
  (let ?r430 (Approx ?b416 ?b429))
  (set (const436) ?r430)
  (let ?b431 (Mul ?b98 ?b405))
  (set (const437) ?b431)
  (let ?b432 (Mul ?b98 ?b393))
  (set (const438) ?b432)
  (let ?b433 (Add ?b431 ?b432))
  (set (const439) ?b433)
  (let ?b434 (Mul ?slambda1 ?b433))
  (set (const440) ?b434)
  (let ?b435 (Add ?b425 ?b434))
  (set (const441) ?b435)
  (let ?b436 (Mul ?slambda1 ?b435))
  (set (const442) ?b436)
  (let ?b437 (Add ?b417 ?b436))
  (set (const443) ?b437)
  (let ?b438 (lower ?b437 "binary64"))
  (set (const444) ?b438)
  (let ?r439 (Approx ?b416 ?b438))
  (set (const445) ?r439)
  (let ?b440 (Add ?b279 ?b416))
  (set (const446) ?b440)
  (let ?b441 (Add ?b417 ?b279))
  (set (const447) ?b441)
  (let ?b442 (lower ?b441 "binary64"))
  (set (const448) ?b442)
  (let ?r443 (Approx ?b440 ?b442))
  (set (const449) ?r443)
  (let ?b444 (Add ?b420 ?b441))
  (set (const450) ?b444)
  (let ?b445 (lower ?b444 "binary64"))
  (set (const451) ?b445)
  (let ?r446 (Approx ?b440 ?b445))
  (set (const452) ?r446)
  (let ?b447 (Add ?b427 ?b279))
  (set (const453) ?b447)
  (let ?b448 (Add ?b417 ?b447))
  (set (const454) ?b448)
  (let ?b449 (lower ?b448 "binary64"))
  (set (const455) ?b449)
  (let ?r450 (Approx ?b440 ?b449))
  (set (const456) ?r450)
  (let ?b451 (Add ?b436 ?b279))
  (set (const457) ?b451)
  (let ?b452 (Add ?b417 ?b451))
  (set (const458) ?b452)
  (let ?b453 (lower ?b452 "binary64"))
  (set (const459) ?b453)
  (let ?r454 (Approx ?b440 ?b453))
  (set (const460) ?r454)
  (let ?b455 (Add ?b186 ?b10))
  (set (const461) ?b455)
  (let ?b456 (lower ?b455 "binary64"))
  (set (const462) ?b456)
  (let ?r457 (Approx ?b19 ?b456))
  (set (const463) ?r457)
  (let ?b458 (Add ?b192 ?b455))
  (set (const464) ?b458)
  (let ?b459 (lower ?b458 "binary64"))
  (set (const465) ?b459)
  (let ?r460 (Approx ?b19 ?b459))
  (set (const466) ?r460)
  (let ?b461 (Add ?b200 ?b455))
  (set (const467) ?b461)
  (let ?b462 (lower ?b461 "binary64"))
  (set (const468) ?b462)
  (let ?r463 (Approx ?b19 ?b462))
  (set (const469) ?r463)
  (let ?b464 (Add ?b209 ?b455))
  (set (const470) ?b464)
  (let ?b465 (lower ?b464 "binary64"))
  (set (const471) ?b465)
  (let ?r466 (Approx ?b19 ?b465))
  (set (const472) ?r466)
  (let ?b467 (lower ?b25 "binary64"))
  (set (const473) ?b467)
  (let ?r468 (Approx ?b20 ?b467))
  (set (const474) ?r468)
  (let ?b469 (lower ?b43 "binary64"))
  (set (const475) ?b469)
  (let ?r470 (Approx ?b38 ?b469))
  (set (const476) ?r470)
  (let ?b471 (Div ?slambda2 ?slambda1))
  (set (const477) ?b471)
  (let ?b472 (Mul ?b49 ?b471))
  (set (const478) ?b472)
  (let ?b473 (Add ?b87 ?b472))
  (set (const479) ?b473)
  (let ?b474 (Mul ?slambda1 ?b473))
  (set (const480) ?b474)
  (let ?b475 (lower ?b474 "binary64"))
  (set (const481) ?b475)
  (let ?r476 (Approx ?b16 ?b475))
  (set (const482) ?r476)
  (let ?b477 (lower ?b17 "binary64"))
  (set (const483) ?b477)
  (let ?r478 (Approx ?b17 ?b477))
  (set (const484) ?r478)
  (let ?b479 (Mul ?b49 ?b59))
  (set (const485) ?b479)
  (let ?b480 (Div ?b56 ?slambda1))
  (set (const486) ?b480)
  (let ?b481 (Add ?b479 ?b480))
  (set (const487) ?b481)
  (let ?b482 (Mul ?slambda1 ?b481))
  (set (const488) ?b482)
  (let ?b483 (lower ?b482 "binary64"))
  (set (const489) ?b483)
  (let ?r484 (Approx ?b62 ?b483))
  (set (const490) ?r484)
  (let ?b485 (lower ?b29 "binary64"))
  (set (const491) ?b485)
  (let ?r486 (Approx ?b29 ?b485))
  (set (const492) ?r486)
  (let ?b487 (lower ?b32 "binary64"))
  (set (const493) ?b487)
  (let ?r488 (Approx ?b32 ?b487))
  (set (const494) ?r488)
  (let ?b489 (lower ?b34 "binary64"))
  (set (const495) ?b489)
  (let ?r490 (Approx ?b34 ?b489))
  (set (const496) ?r490)
  (let ?b491 (lower ?b35 "binary64"))
  (set (const497) ?b491)
  (let ?r492 (Approx ?b35 ?b491))
  (set (const498) ?r492)
  (let ?b493 (lower ?b23 "binary64"))
  (set (const499) ?b493)
  (let ?r494 (Approx ?b18 ?b493))
  (set (const500) ?r494)
  (let ?b495 (lower ?b40 "binary64"))
  (set (const501) ?b495)
  (let ?r496 (Approx ?b40 ?b495))
  (set (const502) ?r496)
  (let ?b497 (lower ?b42 "binary64"))
  (set (const503) ?b497)
  (let ?r498 (Approx ?b42 ?b497))
  (set (const504) ?r498)
  (let ?b499 (lower ?b263 "binary64"))
  (set (const505) ?b499)
  (let ?r500 (Approx ?b263 ?b499))
  (set (const506) ?r500)
  (let ?b501 (lower ?b280 "binary64"))
  (set (const507) ?b501)
  (let ?r502 (Approx ?b280 ?b501))
  (set (const508) ?r502)
  (let ?b503 (Div ?b306 ?slambda1))
  (set (const509) ?b503)
  (let ?b504 (Mul ?b98 ?b503))
  (set (const510) ?b504)
  (let ?b505 (Add ?b87 ?b504))
  (set (const511) ?b505)
  (let ?b506 (Sub ?b505 ?b471))
  (set (const512) ?b506)
  (let ?b507 (Mul ?slambda1 ?b506))
  (set (const513) ?b507)
  (let ?b508 (lower ?b507 "binary64"))
  (set (const514) ?b508)
  (let ?r509 (Approx ?b308 ?b508))
  (set (const515) ?r509)
  (let ?b510 (Div ?sphi2 ?slambda1))
  (set (const516) ?b510)
  (let ?b511 (Add ?b471 ?b510))
  (set (const517) ?b511)
  (let ?b512 (Sub ?b505 ?b511))
  (set (const518) ?b512)
  (let ?b513 (Mul ?slambda1 ?b512))
  (set (const519) ?b513)
  (let ?b514 (lower ?b513 "binary64"))
  (set (const520) ?b514)
  (let ?r515 (Approx ?b316 ?b514))
  (set (const521) ?r515)
  (let ?b516 (Sin ?b321))
  (set (const522) ?b516)
  (let ?b517 (lower ?b516 "binary64"))
  (set (const523) ?b517)
  (let ?r518 (Approx ?b324 ?b517))
  (set (const524) ?r518)
  (let ?b519 (Add ?b504 ?b510))
  (set (const525) ?b519)
  (let ?b520 (Add ?b87 ?b519))
  (set (const526) ?b520)
  (let ?b521 (Sub ?b520 ?b471))
  (set (const527) ?b521)
  (let ?b522 (Mul ?slambda1 ?b521))
  (set (const528) ?b522)
  (let ?b523 (lower ?b522 "binary64"))
  (set (const529) ?b523)
  (let ?r524 (Approx ?b349 ?b523))
  (set (const530) ?r524)
  (let ?b525 (Sin ?b355))
  (set (const531) ?b525)
  (let ?b526 (lower ?b525 "binary64"))
  (set (const532) ?b526)
  (let ?r527 (Approx ?b358 ?b526))
  (set (const533) ?r527)
  (let ?b528 (Add ?b516 ?b525))
  (set (const534) ?b528)
  (let ?b529 (lower ?b528 "binary64"))
  (set (const535) ?b529)
  (let ?r530 (Approx ?b383 ?b529))
  (set (const536) ?r530)
  (let ?b531 (Mul ?b98 ?b528))
  (set (const537) ?b531)
  (let ?b532 (lower ?b531 "binary64"))
  (set (const538) ?b532)
  (let ?r533 (Approx ?b416 ?b532))
  (set (const539) ?r533)
  (let ?b534 (Add ?b531 ?b279))
  (set (const540) ?b534)
  (let ?b535 (lower ?b534 "binary64"))
  (set (const541) ?b535)
  (let ?r536 (Approx ?b440 ?b535))
  (set (const542) ?r536)
  (let ?b537 (lower ?b24 "binary64"))
  (set (const543) ?b537)
  (let ?r538 (Approx ?b19 ?b537))
  (set (const544) ?r538)
  (let ?b539 (Sub ?b471 ?b87))
  (set (const545) ?b539)
  (let ?b540 (Mul ?slambda1 ?b539))
  (set (const546) ?b540)
  (let ?b541 (Mul ?b49 ?b540))
  (set (const547) ?b541)
  (let ?b542 (lower ?b541 "binary64"))
  (set (const548) ?b542)
  (let ?r543 (Approx ?b16 ?b542))
  (set (const549) ?r543)
  (let ?b544 (Mul ?b49 ?slambda1))
  (set (const550) ?b544)
  (let ?b545 (Add ?slambda2 ?b544))
  (set (const551) ?b545)
  (let ?b546 (Neg ?b545))
  (set (const552) ?b546)
  (let ?b547 (Cos ?b546))
  (set (const553) ?b547)
  (let ?b548 (lower ?b547 "binary64"))
  (set (const554) ?b548)
  (let ?r549 (Approx ?b17 ?b548))
  (set (const555) ?r549)
  (let ?b550 (Mul ?b49 ?b480))
  (set (const556) ?b550)
  (let ?b551 (Add ?b59 ?b550))
  (set (const557) ?b551)
  (let ?b552 (Mul ?slambda1 ?b551))
  (set (const558) ?b552)
  (let ?b553 (Mul ?b49 ?b552))
  (set (const559) ?b553)
  (let ?b554 (lower ?b553 "binary64"))
  (set (const560) ?b554)
  (let ?r555 (Approx ?b62 ?b554))
  (set (const561) ?r555)
  (let ?b556 (Mul ?b12 ?b547))
  (set (const562) ?b556)
  (let ?b557 (Mul ?b11 ?b556))
  (set (const563) ?b557)
  (let ?b558 (lower ?b557 "binary64"))
  (set (const564) ?b558)
  (let ?r559 (Approx ?b18 ?b558))
  (set (const565) ?r559)
  (let ?b560 (Add ?b547 ?b262))
  (set (const566) ?b560)
  (let ?b561 (lower ?b560 "binary64"))
  (set (const567) ?b561)
  (let ?r562 (Approx ?b263 ?b561))
  (set (const568) ?r562)
  (let ?b563 (Add ?b279 ?b556))
  (set (const569) ?b563)
  (let ?b564 (lower ?b563 "binary64"))
  (set (const570) ?b564)
  (let ?r565 (Approx ?b280 ?b564))
  (set (const571) ?r565)
  (let ?b566 (Div ?b309 ?slambda1))
  (set (const572) ?b566)
  (let ?b567 (Mul ?b49 ?b566))
  (set (const573) ?b567)
  (let ?b568 (Sub ?b567 ?b87))
  (set (const574) ?b568)
  (let ?b569 (Mul ?slambda1 ?b568))
  (set (const575) ?b569)
  (let ?b570 (Mul ?b49 ?b569))
  (set (const576) ?b570)
  (let ?b571 (lower ?b570 "binary64"))
  (set (const577) ?b571)
  (let ?r572 (Approx ?b308 ?b571))
  (set (const578) ?r572)
  (let ?b573 (Div ?b318 ?slambda1))
  (set (const579) ?b573)
  (let ?b574 (Mul ?b49 ?b573))
  (set (const580) ?b574)
  (let ?b575 (Sub ?b574 ?b87))
  (set (const581) ?b575)
  (let ?b576 (Mul ?slambda1 ?b575))
  (set (const582) ?b576)
  (let ?b577 (Mul ?b49 ?b576))
  (set (const583) ?b577)
  (let ?b578 (lower ?b577 "binary64"))
  (set (const584) ?b578)
  (let ?r579 (Approx ?b316 ?b578))
  (set (const585) ?r579)
  (let ?b580 (Add ?sphi2 ?b544))
  (set (const586) ?b580)
  (let ?b581 (Add ?slambda2 ?b580))
  (set (const587) ?b581)
  (let ?b582 (Sub ?b307 ?b581))
  (set (const588) ?b582)
  (let ?b583 (Sin ?b582))
  (set (const589) ?b583)
  (let ?b584 (lower ?b583 "binary64"))
  (set (const590) ?b584)
  (let ?r585 (Approx ?b324 ?b584))
  (set (const591) ?r585)
  (let ?b586 (Div ?b351 ?slambda1))
  (set (const592) ?b586)
  (let ?b587 (Mul ?b49 ?b586))
  (set (const593) ?b587)
  (let ?b588 (Sub ?b587 ?b87))
  (set (const594) ?b588)
  (let ?b589 (Mul ?slambda1 ?b588))
  (set (const595) ?b589)
  (let ?b590 (Mul ?b49 ?b589))
  (set (const596) ?b590)
  (let ?b591 (lower ?b590 "binary64"))
  (set (const597) ?b591)
  (let ?r592 (Approx ?b349 ?b591))
  (set (const598) ?r592)
  (let ?b593 (Sub ?b350 ?b545))
  (set (const599) ?b593)
  (let ?b594 (Sin ?b593))
  (set (const600) ?b594)
  (let ?b595 (lower ?b594 "binary64"))
  (set (const601) ?b595)
  (let ?r596 (Approx ?b358 ?b595))
  (set (const602) ?r596)
  (let ?b597 (Add ?b583 ?b594))
  (set (const603) ?b597)
  (let ?b598 (lower ?b597 "binary64"))
  (set (const604) ?b598)
  (let ?r599 (Approx ?b383 ?b598))
  (set (const605) ?r599)
  (let ?b600 (Mul ?b98 ?b597))
  (set (const606) ?b600)
  (let ?b601 (lower ?b600 "binary64"))
  (set (const607) ?b601)
  (let ?r602 (Approx ?b416 ?b601))
  (set (const608) ?r602)
  (let ?b603 (Add ?b600 ?b279))
  (set (const609) ?b603)
  (let ?b604 (lower ?b603 "binary64"))
  (set (const610) ?b604)
  (let ?r605 (Approx ?b440 ?b604))
  (set (const611) ?r605)
  (let ?b606 (Add ?b557 ?b10))
  (set (const612) ?b606)
  (let ?b607 (lower ?b606 "binary64"))
  (set (const613) ?b607)
  (let ?r608 (Approx ?b19 ?b607))
  (set (const614) ?r608)
  (let ?b609 (Acos ?b606))
  (set (const615) ?b609)
  (let ?b610 (lower ?b609 "binary64"))
  (set (const616) ?b610)
  (let ?r611 (Approx ?b20 ?b610))
  (set (const617) ?r611)
  (let ?b612 (Mul ?sR ?b609))
  (set (const618) ?b612)
  (let ?b613 (lower ?b612 "binary64"))
  (set (const619) ?b613)
  (let ?r614 (Approx ?b21 ?b613))
  (set (const620) ?r614)
  (let ?b615 (lower ?slambda2 "binary64"))
  (set (const621) ?b615)
  (let ?r616 (Approx ?slambda2 ?b615))
  (set (const622) ?r616)
  (let ?b617 (Add ?slambda1 ?b50))
  (set (const623) ?b617)
  (let ?b618 (lower ?b617 "binary64"))
  (set (const624) ?b618)
  (let ?r619 (Approx ?b16 ?b618))
  (set (const625) ?r619)
  (let ?b620 (Mul ?slambda2 ?b32))
  (set (const626) ?b620)
  (let ?b621 (Add ?b29 ?b620))
  (set (const627) ?b621)
  (let ?b622 (lower ?b621 "binary64"))
  (set (const628) ?b622)
  (let ?r623 (Approx ?b17 ?b622))
  (set (const629) ?r623)
  (let ?b624 (Mul ?slambda2 ?b29))
  (set (const630) ?b624)
  (let ?b625 (Mul ?b65 ?b624))
  (set (const631) ?b625)
  (let ?b626 (Mul ?b49 ?b32))
  (set (const632) ?b626)
  (let ?b627 (Sub ?b625 ?b626))
  (set (const633) ?b627)
  (let ?b628 (Mul ?slambda2 ?b627))
  (set (const634) ?b628)
  (let ?b629 (Add ?b29 ?b628))
  (set (const635) ?b629)
  (let ?b630 (lower ?b629 "binary64"))
  (set (const636) ?b630)
  (let ?r631 (Approx ?b17 ?b630))
  (set (const637) ?r631)
  (let ?b632 (Mul ?b65 ?b29))
  (set (const638) ?b632)
  (let ?b633 (Mul ?b113 ?b620))
  (set (const639) ?b633)
  (let ?b634 (Add ?b632 ?b633))
  (set (const640) ?b634)
  (let ?b635 (Mul ?slambda2 ?b634))
  (set (const641) ?b635)
  (let ?b636 (Sub ?b635 ?b626))
  (set (const642) ?b636)
  (let ?b637 (Mul ?slambda2 ?b636))
  (set (const643) ?b637)
  (let ?b638 (Add ?b29 ?b637))
  (set (const644) ?b638)
  (let ?b639 (lower ?b638 "binary64"))
  (set (const645) ?b639)
  (let ?r640 (Approx ?b17 ?b639))
  (set (const646) ?r640)
  (let ?b641 (Pow ?slambda2 ?b90))
  (set (const647) ?b641)
  (let ?b642 (Mul ?b65 ?b641))
  (set (const648) ?b642)
  (let ?b643 (Add ?b87 ?b642))
  (set (const649) ?b643)
  (let ?b644 (lower ?b643 "binary64"))
  (set (const650) ?b644)
  (let ?r645 (Approx ?b56 ?b644))
  (set (const651) ?r645)
  (let ?b646 (Mul ?b96 ?b641))
  (set (const652) ?b646)
  (let ?b647 (Sub ?b646 ?b98))
  (set (const653) ?b647)
  (let ?b648 (Mul ?b641 ?b647))
  (set (const654) ?b648)
  (let ?b649 (Add ?b87 ?b648))
  (set (const655) ?b649)
  (let ?b650 (lower ?b649 "binary64"))
  (set (const656) ?b650)
  (let ?r651 (Approx ?b56 ?b650))
  (set (const657) ?r651)
  (let ?b652 (Mul ?b104 ?b641))
  (set (const658) ?b652)
  (let ?b653 (Add ?b96 ?b652))
  (set (const659) ?b653)
  (let ?b654 (Mul ?b641 ?b653))
  (set (const660) ?b654)
  (let ?b655 (Sub ?b654 ?b98))
  (set (const661) ?b655)
  (let ?b656 (Mul ?b641 ?b655))
  (set (const662) ?b656)
  (let ?b657 (Add ?b87 ?b656))
  (set (const663) ?b657)
  (let ?b658 (lower ?b657 "binary64"))
  (set (const664) ?b658)
  (let ?r659 (Approx ?b56 ?b658))
  (set (const665) ?r659)
  (let ?b660 (Mul ?b74 ?b641))
  (set (const666) ?b660)
  (let ?b661 (Sub ?b660 ?b87))
  (set (const667) ?b661)
  (let ?b662 (Mul ?slambda2 ?b661))
  (set (const668) ?b662)
  (let ?b663 (lower ?b662 "binary64"))
  (set (const669) ?b663)
  (let ?r664 (Approx ?b59 ?b663))
  (set (const670) ?r664)
  (let ?b665 (Num (bigrat (from-string "-1") (from-string "120"))))
  (set (const671) ?b665)
  (let ?b666 (Mul ?b665 ?b641))
  (set (const672) ?b666)
  (let ?b667 (Add ?b74 ?b666))
  (set (const673) ?b667)
  (let ?b668 (Mul ?b641 ?b667))
  (set (const674) ?b668)
  (let ?b669 (Sub ?b668 ?b87))
  (set (const675) ?b669)
  (let ?b670 (Mul ?slambda2 ?b669))
  (set (const676) ?b670)
  (let ?b671 (lower ?b670 "binary64"))
  (set (const677) ?b671)
  (let ?r672 (Approx ?b59 ?b671))
  (set (const678) ?r672)
  (let ?b673 (Num (bigrat (from-string "1") (from-string "5040"))))
  (set (const679) ?b673)
  (let ?b674 (Mul ?b673 ?b641))
  (set (const680) ?b674)
  (let ?b675 (Sub ?b674 ?b119))
  (set (const681) ?b675)
  (let ?b676 (Mul ?b641 ?b675))
  (set (const682) ?b676)
  (let ?b677 (Add ?b74 ?b676))
  (set (const683) ?b677)
  (let ?b678 (Mul ?b641 ?b677))
  (set (const684) ?b678)
  (let ?b679 (Sub ?b678 ?b87))
  (set (const685) ?b679)
  (let ?b680 (Mul ?slambda2 ?b679))
  (set (const686) ?b680)
  (let ?b681 (lower ?b680 "binary64"))
  (set (const687) ?b681)
  (let ?r682 (Approx ?b59 ?b681))
  (set (const688) ?r682)
  (let ?b683 (Mul ?slambda1 ?slambda2))
  (set (const689) ?b683)
  (let ?b684 (Mul ?b49 ?b683))
  (set (const690) ?b684)
  (let ?b685 (lower ?b684 "binary64"))
  (set (const691) ?b685)
  (let ?r686 (Approx ?b60 ?b685))
  (set (const692) ?r686)
  (let ?b687 (Mul ?slambda1 ?b641))
  (set (const693) ?b687)
  (let ?b688 (Mul ?b74 ?b687))
  (set (const694) ?b688)
  (let ?b689 (Add ?b544 ?b688))
  (set (const695) ?b689)
  (let ?b690 (Mul ?slambda2 ?b689))
  (set (const696) ?b690)
  (let ?b691 (lower ?b690 "binary64"))
  (set (const697) ?b691)
  (let ?r692 (Approx ?b60 ?b691))
  (set (const698) ?r692)
  (let ?b693 (Mul ?b665 ?b687))
  (set (const699) ?b693)
  (let ?b694 (Mul ?b74 ?slambda1))
  (set (const700) ?b694)
  (let ?b695 (Add ?b693 ?b694))
  (set (const701) ?b695)
  (let ?b696 (Mul ?b641 ?b695))
  (set (const702) ?b696)
  (let ?b697 (Add ?b544 ?b696))
  (set (const703) ?b697)
  (let ?b698 (Mul ?slambda2 ?b697))
  (set (const704) ?b698)
  (let ?b699 (lower ?b698 "binary64"))
  (set (const705) ?b699)
  (let ?r700 (Approx ?b60 ?b699))
  (set (const706) ?r700)
  (let ?b701 (Mul ?b665 ?slambda1))
  (set (const707) ?b701)
  (let ?b702 (Mul ?b673 ?b687))
  (set (const708) ?b702)
  (let ?b703 (Add ?b701 ?b702))
  (set (const709) ?b703)
  (let ?b704 (Mul ?b641 ?b703))
  (set (const710) ?b704)
  (let ?b705 (Add ?b694 ?b704))
  (set (const711) ?b705)
  (let ?b706 (Mul ?b641 ?b705))
  (set (const712) ?b706)
  (let ?b707 (Add ?b544 ?b706))
  (set (const713) ?b707)
  (let ?b708 (Mul ?slambda2 ?b707))
  (set (const714) ?b708)
  (let ?b709 (lower ?b708 "binary64"))
  (set (const715) ?b709)
  (let ?r710 (Approx ?b60 ?b709))
  (set (const716) ?r710)
  (let ?b711 (lower ?b683 "binary64"))
  (set (const717) ?b711)
  (let ?r712 (Approx ?b61 ?b711))
  (set (const718) ?r712)
  (let ?b713 (Mul ?b113 ?b687))
  (set (const719) ?b713)
  (let ?b714 (Add ?slambda1 ?b713))
  (set (const720) ?b714)
  (let ?b715 (Mul ?slambda2 ?b714))
  (set (const721) ?b715)
  (let ?b716 (lower ?b715 "binary64"))
  (set (const722) ?b716)
  (let ?r717 (Approx ?b61 ?b716))
  (set (const723) ?r717)
  (let ?b718 (Mul ?b113 ?slambda1))
  (set (const724) ?b718)
  (let ?b719 (Mul ?b119 ?b687))
  (set (const725) ?b719)
  (let ?b720 (Add ?b718 ?b719))
  (set (const726) ?b720)
  (let ?b721 (Mul ?b641 ?b720))
  (set (const727) ?b721)
  (let ?b722 (Add ?slambda1 ?b721))
  (set (const728) ?b722)
  (let ?b723 (Mul ?slambda2 ?b722))
  (set (const729) ?b723)
  (let ?b724 (lower ?b723 "binary64"))
  (set (const730) ?b724)
  (let ?r725 (Approx ?b61 ?b724))
  (set (const731) ?r725)
  (let ?b726 (Mul ?b127 ?b687))
  (set (const732) ?b726)
  (let ?b727 (Mul ?b119 ?slambda1))
  (set (const733) ?b727)
  (let ?b728 (Add ?b726 ?b727))
  (set (const734) ?b728)
  (let ?b729 (Mul ?b641 ?b728))
  (set (const735) ?b729)
  (let ?b730 (Add ?b718 ?b729))
  (set (const736) ?b730)
  (let ?b731 (Mul ?b641 ?b730))
  (set (const737) ?b731)
  (let ?b732 (Add ?slambda1 ?b731))
  (set (const738) ?b732)
  (let ?b733 (Mul ?slambda2 ?b732))
  (set (const739) ?b733)
  (let ?b734 (lower ?b733 "binary64"))
  (set (const740) ?b734)
  (let ?r735 (Approx ?b61 ?b734))
  (set (const741) ?r735)
  (let ?b736 (Add ?b87 ?b683))
  (set (const742) ?b736)
  (let ?b737 (lower ?b736 "binary64"))
  (set (const743) ?b737)
  (let ?r738 (Approx ?b62 ?b737))
  (set (const744) ?r738)
  (let ?b739 (Mul ?b65 ?slambda2))
  (set (const745) ?b739)
  (let ?b740 (Add ?slambda1 ?b739))
  (set (const746) ?b740)
  (let ?b741 (Mul ?slambda2 ?b740))
  (set (const747) ?b741)
  (let ?b742 (Add ?b87 ?b741))
  (set (const748) ?b742)
  (let ?b743 (lower ?b742 "binary64"))
  (set (const749) ?b743)
  (let ?r744 (Approx ?b62 ?b743))
  (set (const750) ?r744)
  (let ?b745 (Mul ?b113 ?b683))
  (set (const751) ?b745)
  (let ?b746 (Sub ?b745 ?b98))
  (set (const752) ?b746)
  (let ?b747 (Mul ?slambda2 ?b746))
  (set (const753) ?b747)
  (let ?b748 (Add ?slambda1 ?b747))
  (set (const754) ?b748)
  (let ?b749 (Mul ?slambda2 ?b748))
  (set (const755) ?b749)
  (let ?b750 (Add ?b87 ?b749))
  (set (const756) ?b750)
  (let ?b751 (lower ?b750 "binary64"))
  (set (const757) ?b751)
  (let ?r752 (Approx ?b62 ?b751))
  (set (const758) ?r752)
  (let ?b753 (Mul ?b113 ?b641))
  (set (const759) ?b753)
  (let ?b754 (Add ?b87 ?b753))
  (set (const760) ?b754)
  (let ?b755 (Mul ?slambda2 ?b754))
  (set (const761) ?b755)
  (let ?b756 (lower ?b755 "binary64"))
  (set (const762) ?b756)
  (let ?r757 (Approx ?b33 ?b756))
  (set (const763) ?r757)
  (let ?b758 (Mul ?b119 ?b641))
  (set (const764) ?b758)
  (let ?b759 (Sub ?b758 ?b74))
  (set (const765) ?b759)
  (let ?b760 (Mul ?b641 ?b759))
  (set (const766) ?b760)
  (let ?b761 (Add ?b87 ?b760))
  (set (const767) ?b761)
  (let ?b762 (Mul ?slambda2 ?b761))
  (set (const768) ?b762)
  (let ?b763 (lower ?b762 "binary64"))
  (set (const769) ?b763)
  (let ?r764 (Approx ?b33 ?b763))
  (set (const770) ?r764)
  (let ?b765 (Mul ?b127 ?b641))
  (set (const771) ?b765)
  (let ?b766 (Add ?b119 ?b765))
  (set (const772) ?b766)
  (let ?b767 (Mul ?b641 ?b766))
  (set (const773) ?b767)
  (let ?b768 (Sub ?b767 ?b74))
  (set (const774) ?b768)
  (let ?b769 (Mul ?b641 ?b768))
  (set (const775) ?b769)
  (let ?b770 (Add ?b87 ?b769))
  (set (const776) ?b770)
  (let ?b771 (Mul ?slambda2 ?b770))
  (set (const777) ?b771)
  (let ?b772 (lower ?b771 "binary64"))
  (set (const778) ?b772)
  (let ?r773 (Approx ?b33 ?b772))
  (set (const779) ?r773)
  (let ?b774 (lower ?b620 "binary64"))
  (set (const780) ?b774)
  (let ?r775 (Approx ?b34 ?b774))
  (set (const781) ?r775)
  (let ?b776 (Mul ?b641 ?b32))
  (set (const782) ?b776)
  (let ?b777 (Mul ?b113 ?b776))
  (set (const783) ?b777)
  (let ?b778 (Add ?b32 ?b777))
  (set (const784) ?b778)
  (let ?b779 (Mul ?slambda2 ?b778))
  (set (const785) ?b779)
  (let ?b780 (lower ?b779 "binary64"))
  (set (const786) ?b780)
  (let ?r781 (Approx ?b34 ?b780))
  (set (const787) ?r781)
  (let ?b782 (Mul ?b113 ?b32))
  (set (const788) ?b782)
  (let ?b783 (Mul ?b119 ?b776))
  (set (const789) ?b783)
  (let ?b784 (Add ?b782 ?b783))
  (set (const790) ?b784)
  (let ?b785 (Mul ?b641 ?b784))
  (set (const791) ?b785)
  (let ?b786 (Add ?b32 ?b785))
  (set (const792) ?b786)
  (let ?b787 (Mul ?slambda2 ?b786))
  (set (const793) ?b787)
  (let ?b788 (lower ?b787 "binary64"))
  (set (const794) ?b788)
  (let ?r789 (Approx ?b34 ?b788))
  (set (const795) ?r789)
  (let ?b790 (Mul ?b127 ?b776))
  (set (const796) ?b790)
  (let ?b791 (Mul ?b119 ?b32))
  (set (const797) ?b791)
  (let ?b792 (Add ?b790 ?b791))
  (set (const798) ?b792)
  (let ?b793 (Mul ?b641 ?b792))
  (set (const799) ?b793)
  (let ?b794 (Add ?b782 ?b793))
  (set (const800) ?b794)
  (let ?b795 (Mul ?b641 ?b794))
  (set (const801) ?b795)
  (let ?b796 (Add ?b32 ?b795))
  (set (const802) ?b796)
  (let ?b797 (Mul ?slambda2 ?b796))
  (set (const803) ?b797)
  (let ?b798 (lower ?b797 "binary64"))
  (set (const804) ?b798)
  (let ?r799 (Approx ?b34 ?b798))
  (set (const805) ?r799)
  (let ?b800 (Add ?b32 ?b625))
  (set (const806) ?b800)
  (let ?b801 (Mul ?slambda2 ?b800))
  (set (const807) ?b801)
  (let ?b802 (Add ?b29 ?b801))
  (set (const808) ?b802)
  (let ?b803 (lower ?b802 "binary64"))
  (set (const809) ?b803)
  (let ?r804 (Approx ?b35 ?b803))
  (set (const810) ?r804)
  (let ?b805 (Add ?b32 ?b635))
  (set (const811) ?b805)
  (let ?b806 (Mul ?slambda2 ?b805))
  (set (const812) ?b806)
  (let ?b807 (Add ?b29 ?b806))
  (set (const813) ?b807)
  (let ?b808 (lower ?b807 "binary64"))
  (set (const814) ?b808)
  (let ?r809 (Approx ?b35 ?b808))
  (set (const815) ?r809)
  (let ?b810 (Mul ?b29 ?b13))
  (set (const816) ?b810)
  (let ?b811 (lower ?b810 "binary64"))
  (set (const817) ?b811)
  (let ?r812 (Approx ?b18 ?b811))
  (set (const818) ?r812)
  (let ?b813 (Mul ?b12 ?b32))
  (set (const819) ?b813)
  (let ?b814 (Mul ?b11 ?b813))
  (set (const820) ?b814)
  (let ?b815 (Mul ?slambda2 ?b814))
  (set (const821) ?b815)
  (let ?b816 (Add ?b815 ?b810))
  (set (const822) ?b816)
  (let ?b817 (lower ?b816 "binary64"))
  (set (const823) ?b817)
  (let ?r818 (Approx ?b18 ?b817))
  (set (const824) ?r818)
  (let ?b819 (Mul ?slambda2 ?b810))
  (set (const825) ?b819)
  (let ?b820 (Mul ?b65 ?b819))
  (set (const826) ?b820)
  (let ?b821 (Add ?b820 ?b814))
  (set (const827) ?b821)
  (let ?b822 (Mul ?slambda2 ?b821))
  (set (const828) ?b822)
  (let ?b823 (Add ?b822 ?b810))
  (set (const829) ?b823)
  (let ?b824 (lower ?b823 "binary64"))
  (set (const830) ?b824)
  (let ?r825 (Approx ?b18 ?b824))
  (set (const831) ?r825)
  (let ?b826 (Mul ?b65 ?b810))
  (set (const832) ?b826)
  (let ?b827 (Mul ?b113 ?b815))
  (set (const833) ?b827)
  (let ?b828 (Add ?b826 ?b827))
  (set (const834) ?b828)
  (let ?b829 (Mul ?slambda2 ?b828))
  (set (const835) ?b829)
  (let ?b830 (Add ?b829 ?b814))
  (set (const836) ?b830)
  (let ?b831 (Mul ?slambda2 ?b830))
  (set (const837) ?b831)
  (let ?b832 (Add ?b831 ?b810))
  (set (const838) ?b832)
  (let ?b833 (lower ?b832 "binary64"))
  (set (const839) ?b833)
  (let ?r834 (Approx ?b18 ?b833))
  (set (const840) ?r834)
  (let ?b835 (Mul ?b29 ?b12))
  (set (const841) ?b835)
  (let ?b836 (lower ?b835 "binary64"))
  (set (const842) ?b836)
  (let ?r837 (Approx ?b40 ?b836))
  (set (const843) ?r837)
  (let ?b838 (Mul ?slambda2 ?b813))
  (set (const844) ?b838)
  (let ?b839 (Add ?b838 ?b835))
  (set (const845) ?b839)
  (let ?b840 (lower ?b839 "binary64"))
  (set (const846) ?b840)
  (let ?r841 (Approx ?b40 ?b840))
  (set (const847) ?r841)
  (let ?b842 (Mul ?slambda2 ?b835))
  (set (const848) ?b842)
  (let ?b843 (Mul ?b65 ?b842))
  (set (const849) ?b843)
  (let ?b844 (Add ?b843 ?b813))
  (set (const850) ?b844)
  (let ?b845 (Mul ?slambda2 ?b844))
  (set (const851) ?b845)
  (let ?b846 (Add ?b845 ?b835))
  (set (const852) ?b846)
  (let ?b847 (lower ?b846 "binary64"))
  (set (const853) ?b847)
  (let ?r848 (Approx ?b40 ?b847))
  (set (const854) ?r848)
  (let ?b849 (Mul ?b65 ?b835))
  (set (const855) ?b849)
  (let ?b850 (Mul ?b113 ?b838))
  (set (const856) ?b850)
  (let ?b851 (Add ?b849 ?b850))
  (set (const857) ?b851)
  (let ?b852 (Mul ?slambda2 ?b851))
  (set (const858) ?b852)
  (let ?b853 (Add ?b852 ?b813))
  (set (const859) ?b853)
  (let ?b854 (Mul ?slambda2 ?b853))
  (set (const860) ?b854)
  (let ?b855 (Add ?b854 ?b835))
  (set (const861) ?b855)
  (let ?b856 (lower ?b855 "binary64"))
  (set (const862) ?b856)
  (let ?r857 (Approx ?b40 ?b856))
  (set (const863) ?r857)
  (let ?b858 (Add ?b810 ?b10))
  (set (const864) ?b858)
  (let ?b859 (lower ?b858 "binary64"))
  (set (const865) ?b859)
  (let ?r860 (Approx ?b42 ?b859))
  (set (const866) ?r860)
  (let ?b861 (Add ?b815 ?b858))
  (set (const867) ?b861)
  (let ?b862 (lower ?b861 "binary64"))
  (set (const868) ?b862)
  (let ?r863 (Approx ?b42 ?b862))
  (set (const869) ?r863)
  (let ?b864 (Add ?b822 ?b858))
  (set (const870) ?b864)
  (let ?b865 (lower ?b864 "binary64"))
  (set (const871) ?b865)
  (let ?r866 (Approx ?b42 ?b865))
  (set (const872) ?r866)
  (let ?b867 (Add ?b831 ?b858))
  (set (const873) ?b867)
  (let ?b868 (lower ?b867 "binary64"))
  (set (const874) ?b868)
  (let ?r869 (Approx ?b42 ?b868))
  (set (const875) ?r869)
  (let ?b870 (Add ?b29 ?b262))
  (set (const876) ?b870)
  (let ?b871 (lower ?b870 "binary64"))
  (set (const877) ?b871)
  (let ?r872 (Approx ?b263 ?b871))
  (set (const878) ?r872)
  (let ?b873 (Add ?b620 ?b262))
  (set (const879) ?b873)
  (let ?b874 (Add ?b29 ?b873))
  (set (const880) ?b874)
  (let ?b875 (lower ?b874 "binary64"))
  (set (const881) ?b875)
  (let ?r876 (Approx ?b263 ?b875))
  (set (const882) ?r876)
  (let ?b877 (Add ?b628 ?b262))
  (set (const883) ?b877)
  (let ?b878 (Add ?b29 ?b877))
  (set (const884) ?b878)
  (let ?b879 (lower ?b878 "binary64"))
  (set (const885) ?b879)
  (let ?r880 (Approx ?b263 ?b879))
  (set (const886) ?r880)
  (let ?b881 (Add ?b637 ?b262))
  (set (const887) ?b881)
  (let ?b882 (Add ?b29 ?b881))
  (set (const888) ?b882)
  (let ?b883 (lower ?b882 "binary64"))
  (set (const889) ?b883)
  (let ?r884 (Approx ?b263 ?b883))
  (set (const890) ?r884)
  (let ?b885 (Add ?b279 ?b835))
  (set (const891) ?b885)
  (let ?b886 (lower ?b885 "binary64"))
  (set (const892) ?b886)
  (let ?r887 (Approx ?b280 ?b886))
  (set (const893) ?r887)
  (let ?b888 (Add ?b838 ?b885))
  (set (const894) ?b888)
  (let ?b889 (lower ?b888 "binary64"))
  (set (const895) ?b889)
  (let ?r890 (Approx ?b280 ?b889))
  (set (const896) ?r890)
  (let ?b891 (Add ?b845 ?b885))
  (set (const897) ?b891)
  (let ?b892 (lower ?b891 "binary64"))
  (set (const898) ?b892)
  (let ?r893 (Approx ?b280 ?b892))
  (set (const899) ?r893)
  (let ?b894 (Add ?b854 ?b885))
  (set (const900) ?b894)
  (let ?b895 (lower ?b894 "binary64"))
  (set (const901) ?b895)
  (let ?r896 (Approx ?b280 ?b895))
  (set (const902) ?r896)
  (let ?b897 (lower ?b312 "binary64"))
  (set (const903) ?b897)
  (let ?r898 (Approx ?b308 ?b897))
  (set (const904) ?r898)
  (let ?b899 (Add ?b50 ?b307))
  (set (const905) ?b899)
  (let ?b900 (Add ?slambda1 ?b899))
  (set (const906) ?b900)
  (let ?b901 (lower ?b900 "binary64"))
  (set (const907) ?b901)
  (let ?r902 (Approx ?b308 ?b901))
  (set (const908) ?r902)
  (let ?b903 (Sub ?b312 ?sphi2))
  (set (const909) ?b903)
  (let ?b904 (lower ?b903 "binary64"))
  (set (const910) ?b904)
  (let ?r905 (Approx ?b316 ?b904))
  (set (const911) ?r905)
  (let ?b906 (Sub ?b900 ?sphi2))
  (set (const912) ?b906)
  (let ?b907 (lower ?b906 "binary64"))
  (set (const913) ?b907)
  (let ?r908 (Approx ?b316 ?b907))
  (set (const914) ?r908)
  (let ?b909 (Sin ?b903))
  (set (const915) ?b909)
  (let ?b910 (lower ?b909 "binary64"))
  (set (const916) ?b910)
  (let ?r911 (Approx ?b324 ?b910))
  (set (const917) ?r911)
  (let ?b912 (Cos ?b903))
  (set (const918) ?b912)
  (let ?b913 (Mul ?slambda2 ?b912))
  (set (const919) ?b913)
  (let ?b914 (Mul ?b49 ?b913))
  (set (const920) ?b914)
  (let ?b915 (Add ?b909 ?b914))
  (set (const921) ?b915)
  (let ?b916 (lower ?b915 "binary64"))
  (set (const922) ?b916)
  (let ?r917 (Approx ?b324 ?b916))
  (set (const923) ?r917)
  (let ?b918 (Mul ?b49 ?b912))
  (set (const924) ?b918)
  (let ?b919 (Mul ?slambda2 ?b909))
  (set (const925) ?b919)
  (let ?b920 (Mul ?b65 ?b919))
  (set (const926) ?b920)
  (let ?b921 (Add ?b918 ?b920))
  (set (const927) ?b921)
  (let ?b922 (Mul ?slambda2 ?b921))
  (set (const928) ?b922)
  (let ?b923 (Add ?b909 ?b922))
  (set (const929) ?b923)
  (let ?b924 (lower ?b923 "binary64"))
  (set (const930) ?b924)
  (let ?r925 (Approx ?b324 ?b924))
  (set (const931) ?r925)
  (let ?b926 (Mul ?b65 ?b909))
  (set (const932) ?b926)
  (let ?b927 (Mul ?b74 ?b913))
  (set (const933) ?b927)
  (let ?b928 (Add ?b926 ?b927))
  (set (const934) ?b928)
  (let ?b929 (Mul ?slambda2 ?b928))
  (set (const935) ?b929)
  (let ?b930 (Add ?b918 ?b929))
  (set (const936) ?b930)
  (let ?b931 (Mul ?slambda2 ?b930))
  (set (const937) ?b931)
  (let ?b932 (Add ?b909 ?b931))
  (set (const938) ?b932)
  (let ?b933 (lower ?b932 "binary64"))
  (set (const939) ?b933)
  (let ?r934 (Approx ?b324 ?b933))
  (set (const940) ?r934)
  (let ?b935 (lower ?b354 "binary64"))
  (set (const941) ?b935)
  (let ?r936 (Approx ?b349 ?b935))
  (set (const942) ?r936)
  (let ?b937 (Add ?sphi2 ?b899))
  (set (const943) ?b937)
  (let ?b938 (Add ?slambda1 ?b937))
  (set (const944) ?b938)
  (let ?b939 (lower ?b938 "binary64"))
  (set (const945) ?b939)
  (let ?r940 (Approx ?b349 ?b939))
  (set (const946) ?r940)
  (let ?b941 (Sin ?b354))
  (set (const947) ?b941)
  (let ?b942 (lower ?b941 "binary64"))
  (set (const948) ?b942)
  (let ?r943 (Approx ?b358 ?b942))
  (set (const949) ?r943)
  (let ?b944 (Cos ?b354))
  (set (const950) ?b944)
  (let ?b945 (Mul ?slambda2 ?b944))
  (set (const951) ?b945)
  (let ?b946 (Mul ?b49 ?b945))
  (set (const952) ?b946)
  (let ?b947 (Add ?b941 ?b946))
  (set (const953) ?b947)
  (let ?b948 (lower ?b947 "binary64"))
  (set (const954) ?b948)
  (let ?r949 (Approx ?b358 ?b948))
  (set (const955) ?r949)
  (let ?b950 (Mul ?b49 ?b944))
  (set (const956) ?b950)
  (let ?b951 (Mul ?slambda2 ?b941))
  (set (const957) ?b951)
  (let ?b952 (Mul ?b65 ?b951))
  (set (const958) ?b952)
  (let ?b953 (Add ?b950 ?b952))
  (set (const959) ?b953)
  (let ?b954 (Mul ?slambda2 ?b953))
  (set (const960) ?b954)
  (let ?b955 (Add ?b941 ?b954))
  (set (const961) ?b955)
  (let ?b956 (lower ?b955 "binary64"))
  (set (const962) ?b956)
  (let ?r957 (Approx ?b358 ?b956))
  (set (const963) ?r957)
  (let ?b958 (Mul ?b65 ?b941))
  (set (const964) ?b958)
  (let ?b959 (Mul ?b74 ?b945))
  (set (const965) ?b959)
  (let ?b960 (Add ?b958 ?b959))
  (set (const966) ?b960)
  (let ?b961 (Mul ?slambda2 ?b960))
  (set (const967) ?b961)
  (let ?b962 (Add ?b950 ?b961))
  (set (const968) ?b962)
  (let ?b963 (Mul ?slambda2 ?b962))
  (set (const969) ?b963)
  (let ?b964 (Add ?b941 ?b963))
  (set (const970) ?b964)
  (let ?b965 (lower ?b964 "binary64"))
  (set (const971) ?b965)
  (let ?r966 (Approx ?b358 ?b965))
  (set (const972) ?r966)
  (let ?b967 (Add ?b941 ?b909))
  (set (const973) ?b967)
  (let ?b968 (lower ?b967 "binary64"))
  (set (const974) ?b968)
  (let ?r969 (Approx ?b383 ?b968))
  (set (const975) ?r969)
  (let ?b970 (Add ?b950 ?b918))
  (set (const976) ?b970)
  (let ?b971 (Mul ?slambda2 ?b970))
  (set (const977) ?b971)
  (let ?b972 (Add ?b909 ?b971))
  (set (const978) ?b972)
  (let ?b973 (Add ?b941 ?b972))
  (set (const979) ?b973)
  (let ?b974 (lower ?b973 "binary64"))
  (set (const980) ?b974)
  (let ?r975 (Approx ?b383 ?b974))
  (set (const981) ?r975)
  (let ?b976 (Add ?b958 ?b926))
  (set (const982) ?b976)
  (let ?b977 (Mul ?slambda2 ?b976))
  (set (const983) ?b977)
  (let ?b978 (Add ?b918 ?b977))
  (set (const984) ?b978)
  (let ?b979 (Add ?b950 ?b978))
  (set (const985) ?b979)
  (let ?b980 (Mul ?slambda2 ?b979))
  (set (const986) ?b980)
  (let ?b981 (Add ?b909 ?b980))
  (set (const987) ?b981)
  (let ?b982 (Add ?b941 ?b981))
  (set (const988) ?b982)
  (let ?b983 (lower ?b982 "binary64"))
  (set (const989) ?b983)
  (let ?r984 (Approx ?b383 ?b983))
  (set (const990) ?r984)
  (let ?b985 (Mul ?b74 ?b944))
  (set (const991) ?b985)
  (let ?b986 (Mul ?b74 ?b912))
  (set (const992) ?b986)
  (let ?b987 (Add ?b985 ?b986))
  (set (const993) ?b987)
  (let ?b988 (Mul ?slambda2 ?b987))
  (set (const994) ?b988)
  (let ?b989 (Add ?b926 ?b988))
  (set (const995) ?b989)
  (let ?b990 (Add ?b958 ?b989))
  (set (const996) ?b990)
  (let ?b991 (Mul ?slambda2 ?b990))
  (set (const997) ?b991)
  (let ?b992 (Add ?b918 ?b991))
  (set (const998) ?b992)
  (let ?b993 (Add ?b950 ?b992))
  (set (const999) ?b993)
  (let ?b994 (Mul ?slambda2 ?b993))
  (set (const1000) ?b994)
  (let ?b995 (Add ?b909 ?b994))
  (set (const1001) ?b995)
  (let ?b996 (Add ?b941 ?b995))
  (set (const1002) ?b996)
  (let ?b997 (lower ?b996 "binary64"))
  (set (const1003) ?b997)
  (let ?r998 (Approx ?b383 ?b997))
  (set (const1004) ?r998)
  (let ?b999 (Mul ?b98 ?b967))
  (set (const1005) ?b999)
  (let ?b1000 (lower ?b999 "binary64"))
  (set (const1006) ?b1000)
  (let ?r1001 (Approx ?b416 ?b1000))
  (set (const1007) ?r1001)
  (let ?b1002 (Mul ?b98 ?b971))
  (set (const1008) ?b1002)
  (let ?b1003 (Add ?b1002 ?b999))
  (set (const1009) ?b1003)
  (let ?b1004 (lower ?b1003 "binary64"))
  (set (const1010) ?b1004)
  (let ?r1005 (Approx ?b416 ?b1004))
  (set (const1011) ?r1005)
  (let ?b1006 (Mul ?b98 ?b977))
  (set (const1012) ?b1006)
  (let ?b1007 (Mul ?b98 ?b970))
  (set (const1013) ?b1007)
  (let ?b1008 (Add ?b1006 ?b1007))
  (set (const1014) ?b1008)
  (let ?b1009 (Mul ?slambda2 ?b1008))
  (set (const1015) ?b1009)
  (let ?b1010 (Add ?b999 ?b1009))
  (set (const1016) ?b1010)
  (let ?b1011 (lower ?b1010 "binary64"))
  (set (const1017) ?b1011)
  (let ?r1012 (Approx ?b416 ?b1011))
  (set (const1018) ?r1012)
  (let ?b1013 (Mul ?b98 ?b988))
  (set (const1019) ?b1013)
  (let ?b1014 (Mul ?b98 ?b976))
  (set (const1020) ?b1014)
  (let ?b1015 (Add ?b1013 ?b1014))
  (set (const1021) ?b1015)
  (let ?b1016 (Mul ?slambda2 ?b1015))
  (set (const1022) ?b1016)
  (let ?b1017 (Add ?b1007 ?b1016))
  (set (const1023) ?b1017)
  (let ?b1018 (Mul ?slambda2 ?b1017))
  (set (const1024) ?b1018)
  (let ?b1019 (Add ?b999 ?b1018))
  (set (const1025) ?b1019)
  (let ?b1020 (lower ?b1019 "binary64"))
  (set (const1026) ?b1020)
  (let ?r1021 (Approx ?b416 ?b1020))
  (set (const1027) ?r1021)
  (let ?b1022 (Add ?b999 ?b279))
  (set (const1028) ?b1022)
  (let ?b1023 (lower ?b1022 "binary64"))
  (set (const1029) ?b1023)
  (let ?r1024 (Approx ?b440 ?b1023))
  (set (const1030) ?r1024)
  (let ?b1025 (Add ?b1002 ?b1022))
  (set (const1031) ?b1025)
  (let ?b1026 (lower ?b1025 "binary64"))
  (set (const1032) ?b1026)
  (let ?r1027 (Approx ?b440 ?b1026))
  (set (const1033) ?r1027)
  (let ?b1028 (Add ?b1009 ?b279))
  (set (const1034) ?b1028)
  (let ?b1029 (Add ?b999 ?b1028))
  (set (const1035) ?b1029)
  (let ?b1030 (lower ?b1029 "binary64"))
  (set (const1036) ?b1030)
  (let ?r1031 (Approx ?b440 ?b1030))
  (set (const1037) ?r1031)
  (let ?b1032 (Add ?b1018 ?b279))
  (set (const1038) ?b1032)
  (let ?b1033 (Add ?b999 ?b1032))
  (set (const1039) ?b1033)
  (let ?b1034 (lower ?b1033 "binary64"))
  (set (const1040) ?b1034)
  (let ?r1035 (Approx ?b440 ?b1034))
  (set (const1041) ?r1035)
  (let ?b1036 (Div ?slambda1 ?slambda2))
  (set (const1042) ?b1036)
  (let ?b1037 (Sub ?b1036 ?b87))
  (set (const1043) ?b1037)
  (let ?b1038 (Mul ?slambda2 ?b1037))
  (set (const1044) ?b1038)
  (let ?b1039 (lower ?b1038 "binary64"))
  (set (const1045) ?b1039)
  (let ?r1040 (Approx ?b16 ?b1039))
  (set (const1046) ?r1040)
  (let ?b1041 (lower ?b59 "binary64"))
  (set (const1047) ?b1041)
  (let ?r1042 (Approx ?b59 ?b1041))
  (set (const1048) ?r1042)
  (let ?b1043 (lower ?b33 "binary64"))
  (set (const1049) ?b1043)
  (let ?r1044 (Approx ?b33 ?b1043))
  (set (const1050) ?r1044)
  (let ?b1045 (Div ?b306 ?slambda2))
  (set (const1051) ?b1045)
  (let ?b1046 (Mul ?b98 ?b1045))
  (set (const1052) ?b1046)
  (let ?b1047 (Add ?b1046 ?b1036))
  (set (const1053) ?b1047)
  (let ?b1048 (Sub ?b1047 ?b87))
  (set (const1054) ?b1048)
  (let ?b1049 (Mul ?slambda2 ?b1048))
  (set (const1055) ?b1049)
  (let ?b1050 (lower ?b1049 "binary64"))
  (set (const1056) ?b1050)
  (let ?r1051 (Approx ?b308 ?b1050))
  (set (const1057) ?r1051)
  (let ?b1052 (Div ?sphi2 ?slambda2))
  (set (const1058) ?b1052)
  (let ?b1053 (Add ?b87 ?b1052))
  (set (const1059) ?b1053)
  (let ?b1054 (Sub ?b1047 ?b1053))
  (set (const1060) ?b1054)
  (let ?b1055 (Mul ?slambda2 ?b1054))
  (set (const1061) ?b1055)
  (let ?b1056 (lower ?b1055 "binary64"))
  (set (const1062) ?b1056)
  (let ?r1057 (Approx ?b316 ?b1056))
  (set (const1063) ?r1057)
  (let ?b1058 (Add ?b1036 ?b1052))
  (set (const1064) ?b1058)
  (let ?b1059 (Add ?b1046 ?b1058))
  (set (const1065) ?b1059)
  (let ?b1060 (Sub ?b1059 ?b87))
  (set (const1066) ?b1060)
  (let ?b1061 (Mul ?slambda2 ?b1060))
  (set (const1067) ?b1061)
  (let ?b1062 (lower ?b1061 "binary64"))
  (set (const1068) ?b1062)
  (let ?r1063 (Approx ?b349 ?b1062))
  (set (const1069) ?r1063)
  (let ?b1064 (Mul ?b49 ?b1036))
  (set (const1070) ?b1064)
  (let ?b1065 (Add ?b87 ?b1064))
  (set (const1071) ?b1065)
  (let ?b1066 (Mul ?slambda2 ?b1065))
  (set (const1072) ?b1066)
  (let ?b1067 (Mul ?b49 ?b1066))
  (set (const1073) ?b1067)
  (let ?b1068 (lower ?b1067 "binary64"))
  (set (const1074) ?b1068)
  (let ?r1069 (Approx ?b16 ?b1068))
  (set (const1075) ?r1069)
  (let ?b1070 (Cos ?b617))
  (set (const1076) ?b1070)
  (let ?b1071 (lower ?b1070 "binary64"))
  (set (const1077) ?b1071)
  (let ?r1072 (Approx ?b17 ?b1071))
  (set (const1078) ?r1072)
  (let ?b1073 (Cos ?b50))
  (set (const1079) ?b1073)
  (let ?b1074 (lower ?b1073 "binary64"))
  (set (const1080) ?b1074)
  (let ?r1075 (Approx ?b56 ?b1074))
  (set (const1081) ?r1075)
  (let ?b1076 (Sin ?b50))
  (set (const1082) ?b1076)
  (let ?b1077 (lower ?b1076 "binary64"))
  (set (const1083) ?b1077)
  (let ?r1078 (Approx ?b59 ?b1077))
  (set (const1084) ?r1078)
  (let ?b1079 (Mul ?slambda1 ?b1076))
  (set (const1085) ?b1079)
  (let ?b1080 (lower ?b1079 "binary64"))
  (set (const1086) ?b1080)
  (let ?r1081 (Approx ?b60 ?b1080))
  (set (const1087) ?r1081)
  (let ?b1082 (Mul ?b49 ?b1079))
  (set (const1088) ?b1082)
  (let ?b1083 (lower ?b1082 "binary64"))
  (set (const1089) ?b1083)
  (let ?r1084 (Approx ?b61 ?b1083))
  (set (const1090) ?r1084)
  (let ?b1085 (Add ?b1073 ?b1082))
  (set (const1091) ?b1085)
  (let ?b1086 (lower ?b1085 "binary64"))
  (set (const1092) ?b1086)
  (let ?r1087 (Approx ?b62 ?b1086))
  (set (const1093) ?r1087)
  (let ?b1088 (Mul ?b12 ?b1070))
  (set (const1094) ?b1088)
  (let ?b1089 (Mul ?b11 ?b1088))
  (set (const1095) ?b1089)
  (let ?b1090 (lower ?b1089 "binary64"))
  (set (const1096) ?b1090)
  (let ?r1091 (Approx ?b18 ?b1090))
  (set (const1097) ?r1091)
  (let ?b1092 (Add ?b1070 ?b262))
  (set (const1098) ?b1092)
  (let ?b1093 (lower ?b1092 "binary64"))
  (set (const1099) ?b1093)
  (let ?r1094 (Approx ?b263 ?b1093))
  (set (const1100) ?r1094)
  (let ?b1095 (Add ?b279 ?b1088))
  (set (const1101) ?b1095)
  (let ?b1096 (lower ?b1095 "binary64"))
  (set (const1102) ?b1096)
  (let ?r1097 (Approx ?b280 ?b1096))
  (set (const1103) ?r1097)
  (let ?b1098 (Div ?b312 ?slambda2))
  (set (const1104) ?b1098)
  (let ?b1099 (Mul ?b49 ?b1098))
  (set (const1105) ?b1099)
  (let ?b1100 (Add ?b87 ?b1099))
  (set (const1106) ?b1100)
  (let ?b1101 (Mul ?slambda2 ?b1100))
  (set (const1107) ?b1101)
  (let ?b1102 (Mul ?b49 ?b1101))
  (set (const1108) ?b1102)
  (let ?b1103 (lower ?b1102 "binary64"))
  (set (const1109) ?b1103)
  (let ?r1104 (Approx ?b308 ?b1103))
  (set (const1110) ?r1104)
  (let ?b1105 (Div ?b903 ?slambda2))
  (set (const1111) ?b1105)
  (let ?b1106 (Mul ?b49 ?b1105))
  (set (const1112) ?b1106)
  (let ?b1107 (Add ?b87 ?b1106))
  (set (const1113) ?b1107)
  (let ?b1108 (Mul ?slambda2 ?b1107))
  (set (const1114) ?b1108)
  (let ?b1109 (Mul ?b49 ?b1108))
  (set (const1115) ?b1109)
  (let ?b1110 (lower ?b1109 "binary64"))
  (set (const1116) ?b1110)
  (let ?r1111 (Approx ?b316 ?b1110))
  (set (const1117) ?r1111)
  (let ?b1112 (Sin ?b906))
  (set (const1118) ?b1112)
  (let ?b1113 (lower ?b1112 "binary64"))
  (set (const1119) ?b1113)
  (let ?r1114 (Approx ?b324 ?b1113))
  (set (const1120) ?r1114)
  (let ?b1115 (Div ?b354 ?slambda2))
  (set (const1121) ?b1115)
  (let ?b1116 (Mul ?b49 ?b1115))
  (set (const1122) ?b1116)
  (let ?b1117 (Add ?b87 ?b1116))
  (set (const1123) ?b1117)
  (let ?b1118 (Mul ?slambda2 ?b1117))
  (set (const1124) ?b1118)
  (let ?b1119 (Mul ?b49 ?b1118))
  (set (const1125) ?b1119)
  (let ?b1120 (lower ?b1119 "binary64"))
  (set (const1126) ?b1120)
  (let ?r1121 (Approx ?b349 ?b1120))
  (set (const1127) ?r1121)
  (let ?b1122 (Sin ?b938))
  (set (const1128) ?b1122)
  (let ?b1123 (lower ?b1122 "binary64"))
  (set (const1129) ?b1123)
  (let ?r1124 (Approx ?b358 ?b1123))
  (set (const1130) ?r1124)
  (let ?b1125 (Add ?b1122 ?b1112))
  (set (const1131) ?b1125)
  (let ?b1126 (lower ?b1125 "binary64"))
  (set (const1132) ?b1126)
  (let ?r1127 (Approx ?b383 ?b1126))
  (set (const1133) ?r1127)
  (let ?b1128 (Mul ?b98 ?b1125))
  (set (const1134) ?b1128)
  (let ?b1129 (lower ?b1128 "binary64"))
  (set (const1135) ?b1129)
  (let ?r1130 (Approx ?b416 ?b1129))
  (set (const1136) ?r1130)
  (let ?b1131 (Add ?b1128 ?b279))
  (set (const1137) ?b1131)
  (let ?b1132 (lower ?b1131 "binary64"))
  (set (const1138) ?b1132)
  (let ?r1133 (Approx ?b440 ?b1132))
  (set (const1139) ?r1133)
  (let ?b1134 (Add ?b1089 ?b10))
  (set (const1140) ?b1134)
  (let ?b1135 (lower ?b1134 "binary64"))
  (set (const1141) ?b1135)
  (let ?r1136 (Approx ?b19 ?b1135))
  (set (const1142) ?r1136)
  (let ?b1137 (Acos ?b1134))
  (set (const1143) ?b1137)
  (let ?b1138 (lower ?b1137 "binary64"))
  (set (const1144) ?b1138)
  (let ?r1139 (Approx ?b20 ?b1138))
  (set (const1145) ?r1139)
  (let ?b1140 (Mul ?sR ?b1137))
  (set (const1146) ?b1140)
  (let ?b1141 (lower ?b1140 "binary64"))
  (set (const1147) ?b1141)
  (let ?r1142 (Approx ?b21 ?b1141))
  (set (const1148) ?r1142)
  (let ?b1143 (lower ?sphi1 "binary64"))
  (set (const1149) ?b1143)
  (let ?r1144 (Approx ?sphi1 ?b1143))
  (set (const1150) ?r1144)
  (let ?b1145 (Pow ?sphi1 ?b90))
  (set (const1151) ?b1145)
  (let ?b1146 (Mul ?b113 ?b1145))
  (set (const1152) ?b1146)
  (let ?b1147 (Add ?b87 ?b1146))
  (set (const1153) ?b1147)
  (let ?b1148 (Mul ?sphi1 ?b1147))
  (set (const1154) ?b1148)
  (let ?b1149 (lower ?b1148 "binary64"))
  (set (const1155) ?b1149)
  (let ?r1150 (Approx ?b7 ?b1149))
  (set (const1156) ?r1150)
  (let ?b1151 (Mul ?b119 ?b1145))
  (set (const1157) ?b1151)
  (let ?b1152 (Sub ?b1151 ?b74))
  (set (const1158) ?b1152)
  (let ?b1153 (Mul ?b1145 ?b1152))
  (set (const1159) ?b1153)
  (let ?b1154 (Add ?b87 ?b1153))
  (set (const1160) ?b1154)
  (let ?b1155 (Mul ?sphi1 ?b1154))
  (set (const1161) ?b1155)
  (let ?b1156 (lower ?b1155 "binary64"))
  (set (const1162) ?b1156)
  (let ?r1157 (Approx ?b7 ?b1156))
  (set (const1163) ?r1157)
  (let ?b1158 (Mul ?b127 ?b1145))
  (set (const1164) ?b1158)
  (let ?b1159 (Add ?b119 ?b1158))
  (set (const1165) ?b1159)
  (let ?b1160 (Mul ?b1145 ?b1159))
  (set (const1166) ?b1160)
  (let ?b1161 (Sub ?b1160 ?b74))
  (set (const1167) ?b1161)
  (let ?b1162 (Mul ?b1145 ?b1161))
  (set (const1168) ?b1162)
  (let ?b1163 (Add ?b87 ?b1162))
  (set (const1169) ?b1163)
  (let ?b1164 (Mul ?sphi1 ?b1163))
  (set (const1170) ?b1164)
  (let ?b1165 (lower ?b1164 "binary64"))
  (set (const1171) ?b1165)
  (let ?r1166 (Approx ?b7 ?b1165))
  (set (const1172) ?r1166)
  (let ?b1167 (lower ?b279 "binary64"))
  (set (const1173) ?b1167)
  (let ?r1168 (Approx ?b10 ?b1167))
  (set (const1174) ?r1168)
  (let ?b1169 (Mul ?b1145 ?b9))
  (set (const1175) ?b1169)
  (let ?b1170 (Mul ?b113 ?b1169))
  (set (const1176) ?b1170)
  (let ?b1171 (Add ?b9 ?b1170))
  (set (const1177) ?b1171)
  (let ?b1172 (Mul ?sphi1 ?b1171))
  (set (const1178) ?b1172)
  (let ?b1173 (lower ?b1172 "binary64"))
  (set (const1179) ?b1173)
  (let ?r1174 (Approx ?b10 ?b1173))
  (set (const1180) ?r1174)
  (let ?b1175 (Mul ?b113 ?b9))
  (set (const1181) ?b1175)
  (let ?b1176 (Mul ?b119 ?b1169))
  (set (const1182) ?b1176)
  (let ?b1177 (Add ?b1175 ?b1176))
  (set (const1183) ?b1177)
  (let ?b1178 (Mul ?b1145 ?b1177))
  (set (const1184) ?b1178)
  (let ?b1179 (Add ?b9 ?b1178))
  (set (const1185) ?b1179)
  (let ?b1180 (Mul ?sphi1 ?b1179))
  (set (const1186) ?b1180)
  (let ?b1181 (lower ?b1180 "binary64"))
  (set (const1187) ?b1181)
  (let ?r1182 (Approx ?b10 ?b1181))
  (set (const1188) ?r1182)
  (let ?b1183 (Mul ?b127 ?b1169))
  (set (const1189) ?b1183)
  (let ?b1184 (Mul ?b119 ?b9))
  (set (const1190) ?b1184)
  (let ?b1185 (Add ?b1183 ?b1184))
  (set (const1191) ?b1185)
  (let ?b1186 (Mul ?b1145 ?b1185))
  (set (const1192) ?b1186)
  (let ?b1187 (Add ?b1175 ?b1186))
  (set (const1193) ?b1187)
  (let ?b1188 (Mul ?b1145 ?b1187))
  (set (const1194) ?b1188)
  (let ?b1189 (Add ?b9 ?b1188))
  (set (const1195) ?b1189)
  (let ?b1190 (Mul ?sphi1 ?b1189))
  (set (const1196) ?b1190)
  (let ?b1191 (lower ?b1190 "binary64"))
  (set (const1197) ?b1191)
  (let ?r1192 (Approx ?b10 ?b1191))
  (set (const1198) ?r1192)
  (let ?b1193 (Mul ?b65 ?b1145))
  (set (const1199) ?b1193)
  (let ?b1194 (Add ?b87 ?b1193))
  (set (const1200) ?b1194)
  (let ?b1195 (lower ?b1194 "binary64"))
  (set (const1201) ?b1195)
  (let ?r1196 (Approx ?b11 ?b1195))
  (set (const1202) ?r1196)
  (let ?b1197 (Mul ?b96 ?b1145))
  (set (const1203) ?b1197)
  (let ?b1198 (Sub ?b1197 ?b98))
  (set (const1204) ?b1198)
  (let ?b1199 (Mul ?b1145 ?b1198))
  (set (const1205) ?b1199)
  (let ?b1200 (Add ?b87 ?b1199))
  (set (const1206) ?b1200)
  (let ?b1201 (lower ?b1200 "binary64"))
  (set (const1207) ?b1201)
  (let ?r1202 (Approx ?b11 ?b1201))
  (set (const1208) ?r1202)
  (let ?b1203 (Mul ?b104 ?b1145))
  (set (const1209) ?b1203)
  (let ?b1204 (Add ?b96 ?b1203))
  (set (const1210) ?b1204)
  (let ?b1205 (Mul ?b1145 ?b1204))
  (set (const1211) ?b1205)
  (let ?b1206 (Sub ?b1205 ?b98))
  (set (const1212) ?b1206)
  (let ?b1207 (Mul ?b1145 ?b1206))
  (set (const1213) ?b1207)
  (let ?b1208 (Add ?b87 ?b1207))
  (set (const1214) ?b1208)
  (let ?b1209 (lower ?b1208 "binary64"))
  (set (const1215) ?b1209)
  (let ?r1210 (Approx ?b11 ?b1209))
  (set (const1216) ?r1210)
  (let ?b1211 (lower ?b12 "binary64"))
  (set (const1217) ?b1211)
  (let ?r1212 (Approx ?b13 ?b1211))
  (set (const1218) ?r1212)
  (let ?b1213 (Mul ?b1145 ?b12))
  (set (const1219) ?b1213)
  (let ?b1214 (Mul ?b65 ?b1213))
  (set (const1220) ?b1214)
  (let ?b1215 (Add ?b12 ?b1214))
  (set (const1221) ?b1215)
  (let ?b1216 (lower ?b1215 "binary64"))
  (set (const1222) ?b1216)
  (let ?r1217 (Approx ?b13 ?b1216))
  (set (const1223) ?r1217)
  (let ?b1218 (Mul ?b65 ?b12))
  (set (const1224) ?b1218)
  (let ?b1219 (Mul ?b96 ?b1213))
  (set (const1225) ?b1219)
  (let ?b1220 (Add ?b1218 ?b1219))
  (set (const1226) ?b1220)
  (let ?b1221 (Mul ?b1145 ?b1220))
  (set (const1227) ?b1221)
  (let ?b1222 (Add ?b12 ?b1221))
  (set (const1228) ?b1222)
  (let ?b1223 (lower ?b1222 "binary64"))
  (set (const1229) ?b1223)
  (let ?r1224 (Approx ?b13 ?b1223))
  (set (const1230) ?r1224)
  (let ?b1225 (Mul ?b104 ?b1213))
  (set (const1231) ?b1225)
  (let ?b1226 (Mul ?b96 ?b12))
  (set (const1232) ?b1226)
  (let ?b1227 (Add ?b1225 ?b1226))
  (set (const1233) ?b1227)
  (let ?b1228 (Mul ?b1145 ?b1227))
  (set (const1234) ?b1228)
  (let ?b1229 (Add ?b1218 ?b1228))
  (set (const1235) ?b1229)
  (let ?b1230 (Mul ?b1145 ?b1229))
  (set (const1236) ?b1230)
  (let ?b1231 (Add ?b12 ?b1230))
  (set (const1237) ?b1231)
  (let ?b1232 (lower ?b1231 "binary64"))
  (set (const1238) ?b1232)
  (let ?r1233 (Approx ?b13 ?b1232))
  (set (const1239) ?r1233)
  (let ?b1234 (Mul ?sphi2 ?b7))
  (set (const1240) ?b1234)
  (let ?b1235 (lower ?b262 "binary64"))
  (set (const1241) ?b1235)
  (let ?r1236 (Approx ?b1234 ?b1235))
  (set (const1242) ?r1236)
  (let ?b1237 (Mul ?b1145 ?sphi2))
  (set (const1243) ?b1237)
  (let ?b1238 (Mul ?b113 ?b1237))
  (set (const1244) ?b1238)
  (let ?b1239 (Add ?sphi2 ?b1238))
  (set (const1245) ?b1239)
  (let ?b1240 (Mul ?sphi1 ?b1239))
  (set (const1246) ?b1240)
  (let ?b1241 (lower ?b1240 "binary64"))
  (set (const1247) ?b1241)
  (let ?r1242 (Approx ?b1234 ?b1241))
  (set (const1248) ?r1242)
  (let ?b1243 (Mul ?b113 ?sphi2))
  (set (const1249) ?b1243)
  (let ?b1244 (Mul ?b119 ?b1237))
  (set (const1250) ?b1244)
  (let ?b1245 (Add ?b1243 ?b1244))
  (set (const1251) ?b1245)
  (let ?b1246 (Mul ?b1145 ?b1245))
  (set (const1252) ?b1246)
  (let ?b1247 (Add ?sphi2 ?b1246))
  (set (const1253) ?b1247)
  (let ?b1248 (Mul ?sphi1 ?b1247))
  (set (const1254) ?b1248)
  (let ?b1249 (lower ?b1248 "binary64"))
  (set (const1255) ?b1249)
  (let ?r1250 (Approx ?b1234 ?b1249))
  (set (const1256) ?r1250)
  (let ?b1251 (Mul ?b127 ?b1237))
  (set (const1257) ?b1251)
  (let ?b1252 (Mul ?b119 ?sphi2))
  (set (const1258) ?b1252)
  (let ?b1253 (Add ?b1251 ?b1252))
  (set (const1259) ?b1253)
  (let ?b1254 (Mul ?b1145 ?b1253))
  (set (const1260) ?b1254)
  (let ?b1255 (Add ?b1243 ?b1254))
  (set (const1261) ?b1255)
  (let ?b1256 (Mul ?b1145 ?b1255))
  (set (const1262) ?b1256)
  (let ?b1257 (Add ?sphi2 ?b1256))
  (set (const1263) ?b1257)
  (let ?b1258 (Mul ?sphi1 ?b1257))
  (set (const1264) ?b1258)
  (let ?b1259 (lower ?b1258 "binary64"))
  (set (const1265) ?b1259)
  (let ?r1260 (Approx ?b1234 ?b1259))
  (set (const1266) ?r1260)
  (let ?b1261 (lower ?b22 "binary64"))
  (set (const1267) ?b1261)
  (let ?r1262 (Approx ?b18 ?b1261))
  (set (const1268) ?r1262)
  (let ?b1263 (Mul ?b1145 ?b22))
  (set (const1269) ?b1263)
  (let ?b1264 (Mul ?b65 ?b1263))
  (set (const1270) ?b1264)
  (let ?b1265 (Add ?b1264 ?b22))
  (set (const1271) ?b1265)
  (let ?b1266 (lower ?b1265 "binary64"))
  (set (const1272) ?b1266)
  (let ?r1267 (Approx ?b18 ?b1266))
  (set (const1273) ?r1267)
  (let ?b1268 (Mul ?b65 ?b22))
  (set (const1274) ?b1268)
  (let ?b1269 (Mul ?b96 ?b1263))
  (set (const1275) ?b1269)
  (let ?b1270 (Add ?b1268 ?b1269))
  (set (const1276) ?b1270)
  (let ?b1271 (Mul ?b1145 ?b1270))
  (set (const1277) ?b1271)
  (let ?b1272 (Add ?b22 ?b1271))
  (set (const1278) ?b1272)
  (let ?b1273 (lower ?b1272 "binary64"))
  (set (const1279) ?b1273)
  (let ?r1274 (Approx ?b18 ?b1273))
  (set (const1280) ?r1274)
  (let ?b1275 (Mul ?b104 ?b1263))
  (set (const1281) ?b1275)
  (let ?b1276 (Mul ?b96 ?b22))
  (set (const1282) ?b1276)
  (let ?b1277 (Add ?b1275 ?b1276))
  (set (const1283) ?b1277)
  (let ?b1278 (Mul ?b1145 ?b1277))
  (set (const1284) ?b1278)
  (let ?b1279 (Add ?b1268 ?b1278))
  (set (const1285) ?b1279)
  (let ?b1280 (Mul ?b1145 ?b1279))
  (set (const1286) ?b1280)
  (let ?b1281 (Add ?b22 ?b1280))
  (set (const1287) ?b1281)
  (let ?b1282 (lower ?b1281 "binary64"))
  (set (const1288) ?b1282)
  (let ?r1283 (Approx ?b18 ?b1282))
  (set (const1289) ?r1283)
  (let ?b1284 (Add ?b279 ?b40))
  (set (const1290) ?b1284)
  (let ?b1285 (lower ?b1284 "binary64"))
  (set (const1291) ?b1285)
  (let ?r1286 (Approx ?b42 ?b1285))
  (set (const1292) ?r1286)
  (let ?b1287 (Mul ?sphi1 ?b40))
  (set (const1293) ?b1287)
  (let ?b1288 (Mul ?b65 ?b1287))
  (set (const1294) ?b1288)
  (let ?b1289 (Add ?b9 ?b1288))
  (set (const1295) ?b1289)
  (let ?b1290 (Mul ?sphi1 ?b1289))
  (set (const1296) ?b1290)
  (let ?b1291 (Add ?b1290 ?b40))
  (set (const1297) ?b1291)
  (let ?b1292 (lower ?b1291 "binary64"))
  (set (const1298) ?b1292)
  (let ?r1293 (Approx ?b42 ?b1292))
  (set (const1299) ?r1293)
  (let ?b1294 (Mul ?b65 ?b40))
  (set (const1300) ?b1294)
  (let ?b1295 (Mul ?b113 ?b279))
  (set (const1301) ?b1295)
  (let ?b1296 (Add ?b1294 ?b1295))
  (set (const1302) ?b1296)
  (let ?b1297 (Mul ?sphi1 ?b1296))
  (set (const1303) ?b1297)
  (let ?b1298 (Add ?b9 ?b1297))
  (set (const1304) ?b1298)
  (let ?b1299 (Mul ?sphi1 ?b1298))
  (set (const1305) ?b1299)
  (let ?b1300 (Add ?b1299 ?b40))
  (set (const1306) ?b1300)
  (let ?b1301 (lower ?b1300 "binary64"))
  (set (const1307) ?b1301)
  (let ?r1302 (Approx ?b42 ?b1301))
  (set (const1308) ?r1302)
  (let ?b1303 (Mul ?sphi1 ?b22))
  (set (const1309) ?b1303)
  (let ?b1304 (Mul ?b65 ?b1303))
  (set (const1310) ?b1304)
  (let ?b1305 (Add ?b9 ?b1304))
  (set (const1311) ?b1305)
  (let ?b1306 (Mul ?sphi1 ?b1305))
  (set (const1312) ?b1306)
  (let ?b1307 (Add ?b1306 ?b22))
  (set (const1313) ?b1307)
  (let ?b1308 (lower ?b1307 "binary64"))
  (set (const1314) ?b1308)
  (let ?r1309 (Approx ?b19 ?b1308))
  (set (const1315) ?r1309)
  (let ?b1310 (Add ?b1268 ?b1295))
  (set (const1316) ?b1310)
  (let ?b1311 (Mul ?sphi1 ?b1310))
  (set (const1317) ?b1311)
  (let ?b1312 (Add ?b9 ?b1311))
  (set (const1318) ?b1312)
  (let ?b1313 (Mul ?sphi1 ?b1312))
  (set (const1319) ?b1313)
  (let ?b1314 (Add ?b1313 ?b22))
  (set (const1320) ?b1314)
  (let ?b1315 (lower ?b1314 "binary64"))
  (set (const1321) ?b1315)
  (let ?r1316 (Approx ?b19 ?b1315))
  (set (const1322) ?r1316)
  (let ?b1317 (lower ?b7 "binary64"))
  (set (const1323) ?b1317)
  (let ?r1318 (Approx ?b7 ?b1317))
  (set (const1324) ?r1318)
  (let ?b1319 (lower ?b10 "binary64"))
  (set (const1325) ?b1319)
  (let ?r1320 (Approx ?b10 ?b1319))
  (set (const1326) ?r1320)
  (let ?b1321 (lower ?b11 "binary64"))
  (set (const1327) ?b1321)
  (let ?r1322 (Approx ?b11 ?b1321))
  (set (const1328) ?r1322)
  (let ?b1323 (lower ?b13 "binary64"))
  (set (const1329) ?b1323)
  (let ?r1324 (Approx ?b13 ?b1323))
  (set (const1330) ?r1324)
  (let ?b1325 (lower ?b1234 "binary64"))
  (set (const1331) ?b1325)
  (let ?r1326 (Approx ?b1234 ?b1325))
  (set (const1332) ?r1326)
  (let ?b1327 (Div ?b17 ?sphi1))
  (set (const1333) ?b1327)
  (let ?b1328 (Add ?sphi2 ?b1327))
  (set (const1334) ?b1328)
  (let ?b1329 (Mul ?sphi1 ?b1328))
  (set (const1335) ?b1329)
  (let ?b1330 (lower ?b1329 "binary64"))
  (set (const1336) ?b1330)
  (let ?r1331 (Approx ?b263 ?b1330))
  (set (const1337) ?r1331)
  (let ?b1332 (Div ?b22 ?sphi1))
  (set (const1338) ?b1332)
  (let ?b1333 (Add ?b9 ?b1332))
  (set (const1339) ?b1333)
  (let ?b1334 (Mul ?sphi1 ?b1333))
  (set (const1340) ?b1334)
  (let ?b1335 (lower ?b1334 "binary64"))
  (set (const1341) ?b1335)
  (let ?r1336 (Approx ?b280 ?b1335))
  (set (const1342) ?r1336)
  (let ?b1337 (Div ?b528 ?sphi1))
  (set (const1343) ?b1337)
  (let ?b1338 (Mul ?b98 ?b1337))
  (set (const1344) ?b1338)
  (let ?b1339 (Add ?b9 ?b1338))
  (set (const1345) ?b1339)
  (let ?b1340 (Mul ?sphi1 ?b1339))
  (set (const1346) ?b1340)
  (let ?b1341 (lower ?b1340 "binary64"))
  (set (const1347) ?b1341)
  (let ?r1342 (Approx ?b440 ?b1341))
  (set (const1348) ?r1342)
  (let ?b1343 (Mul ?b49 ?sphi2))
  (set (const1349) ?b1343)
  (let ?b1344 (Mul ?b49 ?b1327))
  (set (const1350) ?b1344)
  (let ?b1345 (Add ?b1343 ?b1344))
  (set (const1351) ?b1345)
  (let ?b1346 (Mul ?sphi1 ?b1345))
  (set (const1352) ?b1346)
  (let ?b1347 (Mul ?b49 ?b1346))
  (set (const1353) ?b1347)
  (let ?b1348 (lower ?b1347 "binary64"))
  (set (const1354) ?b1348)
  (let ?r1349 (Approx ?b263 ?b1348))
  (set (const1355) ?r1349)
  (let ?b1350 (Mul ?b49 ?b9))
  (set (const1356) ?b1350)
  (let ?b1351 (Mul ?b49 ?b1332))
  (set (const1357) ?b1351)
  (let ?b1352 (Add ?b1350 ?b1351))
  (set (const1358) ?b1352)
  (let ?b1353 (Mul ?sphi1 ?b1352))
  (set (const1359) ?b1353)
  (let ?b1354 (Mul ?b49 ?b1353))
  (set (const1360) ?b1354)
  (let ?b1355 (lower ?b1354 "binary64"))
  (set (const1361) ?b1355)
  (let ?r1356 (Approx ?b280 ?b1355))
  (set (const1362) ?r1356)
  (let ?b1357 (Mul ?b65 ?b1337))
  (set (const1363) ?b1357)
  (let ?b1358 (Add ?b1350 ?b1357))
  (set (const1364) ?b1358)
  (let ?b1359 (Mul ?sphi1 ?b1358))
  (set (const1365) ?b1359)
  (let ?b1360 (Mul ?b49 ?b1359))
  (set (const1366) ?b1360)
  (let ?b1361 (lower ?b1360 "binary64"))
  (set (const1367) ?b1361)
  (let ?r1362 (Approx ?b440 ?b1361))
  (set (const1368) ?r1362)
  (let ?b1363 (lower ?sphi2 "binary64"))
  (set (const1369) ?b1363)
  (let ?r1364 (Approx ?sphi2 ?b1363))
  (set (const1370) ?r1364)
  (let ?b1365 (Pow ?sphi2 ?b90))
  (set (const1371) ?b1365)
  (let ?b1366 (Mul ?b113 ?b1365))
  (set (const1372) ?b1366)
  (let ?b1367 (Add ?b87 ?b1366))
  (set (const1373) ?b1367)
  (let ?b1368 (Mul ?sphi2 ?b1367))
  (set (const1374) ?b1368)
  (let ?b1369 (lower ?b1368 "binary64"))
  (set (const1375) ?b1369)
  (let ?r1370 (Approx ?b9 ?b1369))
  (set (const1376) ?r1370)
  (let ?b1371 (Mul ?b119 ?b1365))
  (set (const1377) ?b1371)
  (let ?b1372 (Sub ?b1371 ?b74))
  (set (const1378) ?b1372)
  (let ?b1373 (Mul ?b1365 ?b1372))
  (set (const1379) ?b1373)
  (let ?b1374 (Add ?b87 ?b1373))
  (set (const1380) ?b1374)
  (let ?b1375 (Mul ?sphi2 ?b1374))
  (set (const1381) ?b1375)
  (let ?b1376 (lower ?b1375 "binary64"))
  (set (const1382) ?b1376)
  (let ?r1377 (Approx ?b9 ?b1376))
  (set (const1383) ?r1377)
  (let ?b1378 (Mul ?b127 ?b1365))
  (set (const1384) ?b1378)
  (let ?b1379 (Add ?b119 ?b1378))
  (set (const1385) ?b1379)
  (let ?b1380 (Mul ?b1365 ?b1379))
  (set (const1386) ?b1380)
  (let ?b1381 (Sub ?b1380 ?b74))
  (set (const1387) ?b1381)
  (let ?b1382 (Mul ?b1365 ?b1381))
  (set (const1388) ?b1382)
  (let ?b1383 (Add ?b87 ?b1382))
  (set (const1389) ?b1383)
  (let ?b1384 (Mul ?sphi2 ?b1383))
  (set (const1390) ?b1384)
  (let ?b1385 (lower ?b1384 "binary64"))
  (set (const1391) ?b1385)
  (let ?r1386 (Approx ?b9 ?b1385))
  (set (const1392) ?r1386)
  (let ?b1387 (Mul ?b1365 ?b7))
  (set (const1393) ?b1387)
  (let ?b1388 (Mul ?b113 ?b1387))
  (set (const1394) ?b1388)
  (let ?b1389 (Add ?b7 ?b1388))
  (set (const1395) ?b1389)
  (let ?b1390 (Mul ?sphi2 ?b1389))
  (set (const1396) ?b1390)
  (let ?b1391 (lower ?b1390 "binary64"))
  (set (const1397) ?b1391)
  (let ?r1392 (Approx ?b10 ?b1391))
  (set (const1398) ?r1392)
  (let ?b1393 (Mul ?b113 ?b7))
  (set (const1399) ?b1393)
  (let ?b1394 (Mul ?b119 ?b1387))
  (set (const1400) ?b1394)
  (let ?b1395 (Add ?b1393 ?b1394))
  (set (const1401) ?b1395)
  (let ?b1396 (Mul ?b1365 ?b1395))
  (set (const1402) ?b1396)
  (let ?b1397 (Add ?b7 ?b1396))
  (set (const1403) ?b1397)
  (let ?b1398 (Mul ?sphi2 ?b1397))
  (set (const1404) ?b1398)
  (let ?b1399 (lower ?b1398 "binary64"))
  (set (const1405) ?b1399)
  (let ?r1400 (Approx ?b10 ?b1399))
  (set (const1406) ?r1400)
  (let ?b1401 (Mul ?b127 ?b1387))
  (set (const1407) ?b1401)
  (let ?b1402 (Mul ?b119 ?b7))
  (set (const1408) ?b1402)
  (let ?b1403 (Add ?b1401 ?b1402))
  (set (const1409) ?b1403)
  (let ?b1404 (Mul ?b1365 ?b1403))
  (set (const1410) ?b1404)
  (let ?b1405 (Add ?b1393 ?b1404))
  (set (const1411) ?b1405)
  (let ?b1406 (Mul ?b1365 ?b1405))
  (set (const1412) ?b1406)
  (let ?b1407 (Add ?b7 ?b1406))
  (set (const1413) ?b1407)
  (let ?b1408 (Mul ?sphi2 ?b1407))
  (set (const1414) ?b1408)
  (let ?b1409 (lower ?b1408 "binary64"))
  (set (const1415) ?b1409)
  (let ?r1410 (Approx ?b10 ?b1409))
  (set (const1416) ?r1410)
  (let ?b1411 (Mul ?b65 ?b1365))
  (set (const1417) ?b1411)
  (let ?b1412 (Add ?b87 ?b1411))
  (set (const1418) ?b1412)
  (let ?b1413 (lower ?b1412 "binary64"))
  (set (const1419) ?b1413)
  (let ?r1414 (Approx ?b12 ?b1413))
  (set (const1420) ?r1414)
  (let ?b1415 (Mul ?b96 ?b1365))
  (set (const1421) ?b1415)
  (let ?b1416 (Sub ?b1415 ?b98))
  (set (const1422) ?b1416)
  (let ?b1417 (Mul ?b1365 ?b1416))
  (set (const1423) ?b1417)
  (let ?b1418 (Add ?b87 ?b1417))
  (set (const1424) ?b1418)
  (let ?b1419 (lower ?b1418 "binary64"))
  (set (const1425) ?b1419)
  (let ?r1420 (Approx ?b12 ?b1419))
  (set (const1426) ?r1420)
  (let ?b1421 (Mul ?b104 ?b1365))
  (set (const1427) ?b1421)
  (let ?b1422 (Add ?b96 ?b1421))
  (set (const1428) ?b1422)
  (let ?b1423 (Mul ?b1365 ?b1422))
  (set (const1429) ?b1423)
  (let ?b1424 (Sub ?b1423 ?b98))
  (set (const1430) ?b1424)
  (let ?b1425 (Mul ?b1365 ?b1424))
  (set (const1431) ?b1425)
  (let ?b1426 (Add ?b87 ?b1425))
  (set (const1432) ?b1426)
  (let ?b1427 (lower ?b1426 "binary64"))
  (set (const1433) ?b1427)
  (let ?r1428 (Approx ?b12 ?b1427))
  (set (const1434) ?r1428)
  (let ?b1429 (Mul ?b1365 ?b11))
  (set (const1435) ?b1429)
  (let ?b1430 (Mul ?b65 ?b1429))
  (set (const1436) ?b1430)
  (let ?b1431 (Add ?b11 ?b1430))
  (set (const1437) ?b1431)
  (let ?b1432 (lower ?b1431 "binary64"))
  (set (const1438) ?b1432)
  (let ?r1433 (Approx ?b13 ?b1432))
  (set (const1439) ?r1433)
  (let ?b1434 (Mul ?b65 ?b11))
  (set (const1440) ?b1434)
  (let ?b1435 (Mul ?b96 ?b1429))
  (set (const1441) ?b1435)
  (let ?b1436 (Add ?b1434 ?b1435))
  (set (const1442) ?b1436)
  (let ?b1437 (Mul ?b1365 ?b1436))
  (set (const1443) ?b1437)
  (let ?b1438 (Add ?b11 ?b1437))
  (set (const1444) ?b1438)
  (let ?b1439 (lower ?b1438 "binary64"))
  (set (const1445) ?b1439)
  (let ?r1440 (Approx ?b13 ?b1439))
  (set (const1446) ?r1440)
  (let ?b1441 (Mul ?b104 ?b1429))
  (set (const1447) ?b1441)
  (let ?b1442 (Mul ?b96 ?b11))
  (set (const1448) ?b1442)
  (let ?b1443 (Add ?b1441 ?b1442))
  (set (const1449) ?b1443)
  (let ?b1444 (Mul ?b1365 ?b1443))
  (set (const1450) ?b1444)
  (let ?b1445 (Add ?b1434 ?b1444))
  (set (const1451) ?b1445)
  (let ?b1446 (Mul ?b1365 ?b1445))
  (set (const1452) ?b1446)
  (let ?b1447 (Add ?b11 ?b1446))
  (set (const1453) ?b1447)
  (let ?b1448 (lower ?b1447 "binary64"))
  (set (const1454) ?b1448)
  (let ?r1449 (Approx ?b13 ?b1448))
  (set (const1455) ?r1449)
  (let ?b1450 (lower ?b1365 "binary64"))
  (set (const1456) ?b1450)
  (let ?r1451 (Approx ?b1365 ?b1450))
  (set (const1457) ?r1451)
  (let ?b1452 (lower ?b1411 "binary64"))
  (set (const1458) ?b1452)
  (let ?r1453 (Approx ?b1411 ?b1452))
  (set (const1459) ?r1453)
  (let ?b1454 (Mul ?b11 ?b17))
  (set (const1460) ?b1454)
  (let ?b1455 (lower ?b1454 "binary64"))
  (set (const1461) ?b1455)
  (let ?r1456 (Approx ?b18 ?b1455))
  (set (const1462) ?r1456)
  (let ?b1457 (Mul ?b1365 ?b1454))
  (set (const1463) ?b1457)
  (let ?b1458 (Mul ?b65 ?b1457))
  (set (const1464) ?b1458)
  (let ?b1459 (Add ?b1458 ?b1454))
  (set (const1465) ?b1459)
  (let ?b1460 (lower ?b1459 "binary64"))
  (set (const1466) ?b1460)
  (let ?r1461 (Approx ?b18 ?b1460))
  (set (const1467) ?r1461)
  (let ?b1462 (Mul ?b65 ?b1454))
  (set (const1468) ?b1462)
  (let ?b1463 (Mul ?b96 ?b1457))
  (set (const1469) ?b1463)
  (let ?b1464 (Add ?b1462 ?b1463))
  (set (const1470) ?b1464)
  (let ?b1465 (Mul ?b1365 ?b1464))
  (set (const1471) ?b1465)
  (let ?b1466 (Add ?b1454 ?b1465))
  (set (const1472) ?b1466)
  (let ?b1467 (lower ?b1466 "binary64"))
  (set (const1473) ?b1467)
  (let ?r1468 (Approx ?b18 ?b1467))
  (set (const1474) ?r1468)
  (let ?b1469 (Mul ?b104 ?b1457))
  (set (const1475) ?b1469)
  (let ?b1470 (Mul ?b96 ?b1454))
  (set (const1476) ?b1470)
  (let ?b1471 (Add ?b1469 ?b1470))
  (set (const1477) ?b1471)
  (let ?b1472 (Mul ?b1365 ?b1471))
  (set (const1478) ?b1472)
  (let ?b1473 (Add ?b1462 ?b1472))
  (set (const1479) ?b1473)
  (let ?b1474 (Mul ?b1365 ?b1473))
  (set (const1480) ?b1474)
  (let ?b1475 (Add ?b1454 ?b1474))
  (set (const1481) ?b1475)
  (let ?b1476 (lower ?b1475 "binary64"))
  (set (const1482) ?b1476)
  (let ?r1477 (Approx ?b18 ?b1476))
  (set (const1483) ?r1477)
  (let ?b1478 (Mul ?b1365 ?b35))
  (set (const1484) ?b1478)
  (let ?b1479 (Mul ?b65 ?b1478))
  (set (const1485) ?b1479)
  (let ?b1480 (Add ?b1479 ?b35))
  (set (const1486) ?b1480)
  (let ?b1481 (lower ?b1480 "binary64"))
  (set (const1487) ?b1481)
  (let ?r1482 (Approx ?b40 ?b1481))
  (set (const1488) ?r1482)
  (let ?b1483 (Mul ?b65 ?b35))
  (set (const1489) ?b1483)
  (let ?b1484 (Mul ?b96 ?b1478))
  (set (const1490) ?b1484)
  (let ?b1485 (Add ?b1483 ?b1484))
  (set (const1491) ?b1485)
  (let ?b1486 (Mul ?b1365 ?b1485))
  (set (const1492) ?b1486)
  (let ?b1487 (Add ?b34 ?b1486))
  (set (const1493) ?b1487)
  (let ?b1488 (Add ?b31 ?b1487))
  (set (const1494) ?b1488)
  (let ?b1489 (lower ?b1488 "binary64"))
  (set (const1495) ?b1489)
  (let ?r1490 (Approx ?b40 ?b1489))
  (set (const1496) ?r1490)
  (let ?b1491 (Mul ?b104 ?b1478))
  (set (const1497) ?b1491)
  (let ?b1492 (Mul ?b96 ?b35))
  (set (const1498) ?b1492)
  (let ?b1493 (Add ?b1491 ?b1492))
  (set (const1499) ?b1493)
  (let ?b1494 (Mul ?b1365 ?b1493))
  (set (const1500) ?b1494)
  (let ?b1495 (Add ?b1483 ?b1494))
  (set (const1501) ?b1495)
  (let ?b1496 (Mul ?b1365 ?b1495))
  (set (const1502) ?b1496)
  (let ?b1497 (Add ?b34 ?b1496))
  (set (const1503) ?b1497)
  (let ?b1498 (Add ?b31 ?b1497))
  (set (const1504) ?b1498)
  (let ?b1499 (lower ?b1498 "binary64"))
  (set (const1505) ?b1499)
  (let ?r1500 (Approx ?b40 ?b1499))
  (set (const1506) ?r1500)
  (let ?b1501 (Mul ?b11 ?b35))
  (set (const1507) ?b1501)
  (let ?b1502 (lower ?b1501 "binary64"))
  (set (const1508) ?b1502)
  (let ?r1503 (Approx ?b42 ?b1502))
  (set (const1509) ?r1503)
  (let ?b1504 (Add ?b1234 ?b1501))
  (set (const1510) ?b1504)
  (let ?b1505 (lower ?b1504 "binary64"))
  (set (const1511) ?b1505)
  (let ?r1506 (Approx ?b42 ?b1505))
  (set (const1512) ?r1506)
  (let ?b1507 (Mul ?sphi2 ?b1501))
  (set (const1513) ?b1507)
  (let ?b1508 (Mul ?b65 ?b1507))
  (set (const1514) ?b1508)
  (let ?b1509 (Add ?b7 ?b1508))
  (set (const1515) ?b1509)
  (let ?b1510 (Mul ?sphi2 ?b1509))
  (set (const1516) ?b1510)
  (let ?b1511 (Add ?b1510 ?b1501))
  (set (const1517) ?b1511)
  (let ?b1512 (lower ?b1511 "binary64"))
  (set (const1518) ?b1512)
  (let ?r1513 (Approx ?b42 ?b1512))
  (set (const1519) ?r1513)
  (let ?b1514 (Mul ?b65 ?b1501))
  (set (const1520) ?b1514)
  (let ?b1515 (Mul ?b113 ?b1234))
  (set (const1521) ?b1515)
  (let ?b1516 (Add ?b1514 ?b1515))
  (set (const1522) ?b1516)
  (let ?b1517 (Mul ?sphi2 ?b1516))
  (set (const1523) ?b1517)
  (let ?b1518 (Add ?b7 ?b1517))
  (set (const1524) ?b1518)
  (let ?b1519 (Mul ?sphi2 ?b1518))
  (set (const1525) ?b1519)
  (let ?b1520 (Add ?b1519 ?b1501))
  (set (const1526) ?b1520)
  (let ?b1521 (lower ?b1520 "binary64"))
  (set (const1527) ?b1521)
  (let ?r1522 (Approx ?b42 ?b1521))
  (set (const1528) ?r1522)
  (let ?b1523 (Mul ?sphi2 ?b17))
  (set (const1529) ?b1523)
  (let ?b1524 (Mul ?b65 ?b1523))
  (set (const1530) ?b1524)
  (let ?b1525 (Add ?sphi1 ?b1524))
  (set (const1531) ?b1525)
  (let ?b1526 (Mul ?sphi2 ?b1525))
  (set (const1532) ?b1526)
  (let ?b1527 (Add ?b17 ?b1526))
  (set (const1533) ?b1527)
  (let ?b1528 (lower ?b1527 "binary64"))
  (set (const1534) ?b1528)
  (let ?r1529 (Approx ?b280 ?b1528))
  (set (const1535) ?r1529)
  (let ?b1530 (Mul ?b65 ?b17))
  (set (const1536) ?b1530)
  (let ?b1531 (Mul ?b113 ?b262))
  (set (const1537) ?b1531)
  (let ?b1532 (Add ?b1530 ?b1531))
  (set (const1538) ?b1532)
  (let ?b1533 (Mul ?sphi2 ?b1532))
  (set (const1539) ?b1533)
  (let ?b1534 (Add ?sphi1 ?b1533))
  (set (const1540) ?b1534)
  (let ?b1535 (Mul ?sphi2 ?b1534))
  (set (const1541) ?b1535)
  (let ?b1536 (Add ?b17 ?b1535))
  (set (const1542) ?b1536)
  (let ?b1537 (lower ?b1536 "binary64"))
  (set (const1543) ?b1537)
  (let ?r1538 (Approx ?b280 ?b1537))
  (set (const1544) ?r1538)
  (let ?b1539 (Add ?b1343 ?b307))
  (set (const1545) ?b1539)
  (let ?b1540 (Add ?slambda1 ?b1539))
  (set (const1546) ?b1540)
  (let ?b1541 (Sub ?b1540 ?slambda2))
  (set (const1547) ?b1541)
  (let ?b1542 (lower ?b1541 "binary64"))
  (set (const1548) ?b1542)
  (let ?r1543 (Approx ?b316 ?b1542))
  (set (const1549) ?r1543)
  (let ?b1544 (Sin ?b313))
  (set (const1550) ?b1544)
  (let ?b1545 (lower ?b1544 "binary64"))
  (set (const1551) ?b1545)
  (let ?r1546 (Approx ?b324 ?b1545))
  (set (const1552) ?r1546)
  (let ?b1547 (Cos ?b313))
  (set (const1553) ?b1547)
  (let ?b1548 (Mul ?sphi2 ?b1547))
  (set (const1554) ?b1548)
  (let ?b1549 (Mul ?b49 ?b1548))
  (set (const1555) ?b1549)
  (let ?b1550 (Add ?b1544 ?b1549))
  (set (const1556) ?b1550)
  (let ?b1551 (lower ?b1550 "binary64"))
  (set (const1557) ?b1551)
  (let ?r1552 (Approx ?b324 ?b1551))
  (set (const1558) ?r1552)
  (let ?b1553 (Mul ?b49 ?b1547))
  (set (const1559) ?b1553)
  (let ?b1554 (Mul ?sphi2 ?b1544))
  (set (const1560) ?b1554)
  (let ?b1555 (Mul ?b65 ?b1554))
  (set (const1561) ?b1555)
  (let ?b1556 (Add ?b1553 ?b1555))
  (set (const1562) ?b1556)
  (let ?b1557 (Mul ?sphi2 ?b1556))
  (set (const1563) ?b1557)
  (let ?b1558 (Add ?b1544 ?b1557))
  (set (const1564) ?b1558)
  (let ?b1559 (lower ?b1558 "binary64"))
  (set (const1565) ?b1559)
  (let ?r1560 (Approx ?b324 ?b1559))
  (set (const1566) ?r1560)
  (let ?b1561 (Mul ?b65 ?b1544))
  (set (const1567) ?b1561)
  (let ?b1562 (Mul ?b74 ?b1548))
  (set (const1568) ?b1562)
  (let ?b1563 (Add ?b1561 ?b1562))
  (set (const1569) ?b1563)
  (let ?b1564 (Mul ?sphi2 ?b1563))
  (set (const1570) ?b1564)
  (let ?b1565 (Add ?b1553 ?b1564))
  (set (const1571) ?b1565)
  (let ?b1566 (Mul ?sphi2 ?b1565))
  (set (const1572) ?b1566)
  (let ?b1567 (Add ?b1544 ?b1566))
  (set (const1573) ?b1567)
  (let ?b1568 (lower ?b1567 "binary64"))
  (set (const1574) ?b1568)
  (let ?r1569 (Approx ?b324 ?b1568))
  (set (const1575) ?r1569)
  (let ?b1570 (Add ?b1544 ?b1548))
  (set (const1576) ?b1570)
  (let ?b1571 (lower ?b1570 "binary64"))
  (set (const1577) ?b1571)
  (let ?r1572 (Approx ?b358 ?b1571))
  (set (const1578) ?r1572)
  (let ?b1573 (Add ?b1547 ?b1555))
  (set (const1579) ?b1573)
  (let ?b1574 (Mul ?sphi2 ?b1573))
  (set (const1580) ?b1574)
  (let ?b1575 (Add ?b1544 ?b1574))
  (set (const1581) ?b1575)
  (let ?b1576 (lower ?b1575 "binary64"))
  (set (const1582) ?b1576)
  (let ?r1577 (Approx ?b358 ?b1576))
  (set (const1583) ?r1577)
  (let ?b1578 (Mul ?b113 ?b1548))
  (set (const1584) ?b1578)
  (let ?b1579 (Add ?b1561 ?b1578))
  (set (const1585) ?b1579)
  (let ?b1580 (Mul ?sphi2 ?b1579))
  (set (const1586) ?b1580)
  (let ?b1581 (Add ?b1547 ?b1580))
  (set (const1587) ?b1581)
  (let ?b1582 (Mul ?sphi2 ?b1581))
  (set (const1588) ?b1582)
  (let ?b1583 (Add ?b1544 ?b1582))
  (set (const1589) ?b1583)
  (let ?b1584 (lower ?b1583 "binary64"))
  (set (const1590) ?b1584)
  (let ?r1585 (Approx ?b358 ?b1584))
  (set (const1591) ?r1585)
  (let ?b1586 (Mul ?b90 ?b1544))
  (set (const1592) ?b1586)
  (let ?b1587 (lower ?b1586 "binary64"))
  (set (const1593) ?b1587)
  (let ?r1588 (Approx ?b383 ?b1587))
  (set (const1594) ?r1588)
  (let ?b1589 (Add ?b1547 ?b1553))
  (set (const1595) ?b1589)
  (let ?b1590 (Mul ?sphi2 ?b1589))
  (set (const1596) ?b1590)
  (let ?b1591 (Add ?b1586 ?b1590))
  (set (const1597) ?b1591)
  (let ?b1592 (lower ?b1591 "binary64"))
  (set (const1598) ?b1592)
  (let ?r1593 (Approx ?b383 ?b1592))
  (set (const1599) ?r1593)
  (let ?b1594 (Mul ?b49 ?b1554))
  (set (const1600) ?b1594)
  (let ?b1595 (Add ?b1553 ?b1594))
  (set (const1601) ?b1595)
  (let ?b1596 (Add ?b1547 ?b1595))
  (set (const1602) ?b1596)
  (let ?b1597 (Mul ?sphi2 ?b1596))
  (set (const1603) ?b1597)
  (let ?b1598 (Add ?b1586 ?b1597))
  (set (const1604) ?b1598)
  (let ?b1599 (lower ?b1598 "binary64"))
  (set (const1605) ?b1599)
  (let ?r1600 (Approx ?b383 ?b1599))
  (set (const1606) ?r1600)
  (let ?b1601 (Mul ?b49 ?b1544))
  (set (const1607) ?b1601)
  (let ?b1602 (Mul ?b113 ?b1547))
  (set (const1608) ?b1602)
  (let ?b1603 (Mul ?b74 ?b1547))
  (set (const1609) ?b1603)
  (let ?b1604 (Add ?b1602 ?b1603))
  (set (const1610) ?b1604)
  (let ?b1605 (Mul ?sphi2 ?b1604))
  (set (const1611) ?b1605)
  (let ?b1606 (Add ?b1601 ?b1605))
  (set (const1612) ?b1606)
  (let ?b1607 (Mul ?sphi2 ?b1606))
  (set (const1613) ?b1607)
  (let ?b1608 (Add ?b1553 ?b1607))
  (set (const1614) ?b1608)
  (let ?b1609 (Add ?b1547 ?b1608))
  (set (const1615) ?b1609)
  (let ?b1610 (Mul ?sphi2 ?b1609))
  (set (const1616) ?b1610)
  (let ?b1611 (Add ?b1586 ?b1610))
  (set (const1617) ?b1611)
  (let ?b1612 (lower ?b1611 "binary64"))
  (set (const1618) ?b1612)
  (let ?r1613 (Approx ?b383 ?b1612))
  (set (const1619) ?r1613)
  (let ?b1614 (Mul ?b98 ?b1590))
  (set (const1620) ?b1614)
  (let ?b1615 (Add ?b1544 ?b1614))
  (set (const1621) ?b1615)
  (let ?b1616 (lower ?b1615 "binary64"))
  (set (const1622) ?b1616)
  (let ?r1617 (Approx ?b416 ?b1616))
  (set (const1623) ?r1617)
  (let ?b1618 (Mul ?b98 ?b1589))
  (set (const1624) ?b1618)
  (let ?b1619 (Add ?b1555 ?b1618))
  (set (const1625) ?b1619)
  (let ?b1620 (Mul ?sphi2 ?b1619))
  (set (const1626) ?b1620)
  (let ?b1621 (Add ?b1544 ?b1620))
  (set (const1627) ?b1621)
  (let ?b1622 (lower ?b1621 "binary64"))
  (set (const1628) ?b1622)
  (let ?r1623 (Approx ?b416 ?b1622))
  (set (const1629) ?r1623)
  (let ?b1624 (Mul ?b98 ?b1605))
  (set (const1630) ?b1624)
  (let ?b1625 (Add ?b1561 ?b1624))
  (set (const1631) ?b1625)
  (let ?b1626 (Mul ?sphi2 ?b1625))
  (set (const1632) ?b1626)
  (let ?b1627 (Add ?b1618 ?b1626))
  (set (const1633) ?b1627)
  (let ?b1628 (Mul ?sphi2 ?b1627))
  (set (const1634) ?b1628)
  (let ?b1629 (Add ?b1544 ?b1628))
  (set (const1635) ?b1629)
  (let ?b1630 (lower ?b1629 "binary64"))
  (set (const1636) ?b1630)
  (let ?r1631 (Approx ?b416 ?b1630))
  (set (const1637) ?r1631)
  (let ?b1632 (Add ?sphi1 ?b1618))
  (set (const1638) ?b1632)
  (let ?b1633 (Mul ?sphi2 ?b1632))
  (set (const1639) ?b1633)
  (let ?b1634 (Add ?b1544 ?b1633))
  (set (const1640) ?b1634)
  (let ?b1635 (lower ?b1634 "binary64"))
  (set (const1641) ?b1635)
  (let ?r1636 (Approx ?b440 ?b1635))
  (set (const1642) ?r1636)
  (let ?b1637 (Add ?sphi1 ?b1619))
  (set (const1643) ?b1637)
  (let ?b1638 (Mul ?sphi2 ?b1637))
  (set (const1644) ?b1638)
  (let ?b1639 (Add ?b1544 ?b1638))
  (set (const1645) ?b1639)
  (let ?b1640 (lower ?b1639 "binary64"))
  (set (const1646) ?b1640)
  (let ?r1641 (Approx ?b440 ?b1640))
  (set (const1647) ?r1641)
  (let ?b1642 (Mul ?b113 ?sphi1))
  (set (const1648) ?b1642)
  (let ?b1643 (Mul ?b98 ?b1604))
  (set (const1649) ?b1643)
  (let ?b1644 (Add ?b1642 ?b1643))
  (set (const1650) ?b1644)
  (let ?b1645 (Mul ?sphi2 ?b1644))
  (set (const1651) ?b1645)
  (let ?b1646 (Add ?b1561 ?b1645))
  (set (const1652) ?b1646)
  (let ?b1647 (Mul ?sphi2 ?b1646))
  (set (const1653) ?b1647)
  (let ?b1648 (Add ?b1618 ?b1647))
  (set (const1654) ?b1648)
  (let ?b1649 (Add ?sphi1 ?b1648))
  (set (const1655) ?b1649)
  (let ?b1650 (Mul ?sphi2 ?b1649))
  (set (const1656) ?b1650)
  (let ?b1651 (Add ?b1544 ?b1650))
  (set (const1657) ?b1651)
  (let ?b1652 (lower ?b1651 "binary64"))
  (set (const1658) ?b1652)
  (let ?r1653 (Approx ?b440 ?b1652))
  (set (const1659) ?r1653)
  (let ?b1654 (Add ?b1234 ?b1454))
  (set (const1660) ?b1654)
  (let ?b1655 (lower ?b1654 "binary64"))
  (set (const1661) ?b1655)
  (let ?r1656 (Approx ?b19 ?b1655))
  (set (const1662) ?r1656)
  (let ?b1657 (Mul ?sphi2 ?b1454))
  (set (const1663) ?b1657)
  (let ?b1658 (Mul ?b65 ?b1657))
  (set (const1664) ?b1658)
  (let ?b1659 (Add ?b7 ?b1658))
  (set (const1665) ?b1659)
  (let ?b1660 (Mul ?sphi2 ?b1659))
  (set (const1666) ?b1660)
  (let ?b1661 (Add ?b1660 ?b1454))
  (set (const1667) ?b1661)
  (let ?b1662 (lower ?b1661 "binary64"))
  (set (const1668) ?b1662)
  (let ?r1663 (Approx ?b19 ?b1662))
  (set (const1669) ?r1663)
  (let ?b1664 (Add ?b1462 ?b1515))
  (set (const1670) ?b1664)
  (let ?b1665 (Mul ?sphi2 ?b1664))
  (set (const1671) ?b1665)
  (let ?b1666 (Add ?b7 ?b1665))
  (set (const1672) ?b1666)
  (let ?b1667 (Mul ?sphi2 ?b1666))
  (set (const1673) ?b1667)
  (let ?b1668 (Add ?b1667 ?b1454))
  (set (const1674) ?b1668)
  (let ?b1669 (lower ?b1668 "binary64"))
  (set (const1675) ?b1669)
  (let ?r1670 (Approx ?b19 ?b1669))
  (set (const1676) ?r1670)
  (let ?b1671 (lower ?b9 "binary64"))
  (set (const1677) ?b1671)
  (let ?r1672 (Approx ?b9 ?b1671))
  (set (const1678) ?r1672)
  (let ?b1673 (Div ?b87 ?b1365))
  (set (const1679) ?b1673)
  (let ?b1674 (Sub ?b1673 ?b98))
  (set (const1680) ?b1674)
  (let ?b1675 (Mul ?b1365 ?b1674))
  (set (const1681) ?b1675)
  (let ?b1676 (lower ?b1675 "binary64"))
  (set (const1682) ?b1676)
  (let ?r1677 (Approx ?b1412 ?b1676))
  (set (const1683) ?r1677)
  (let ?b1678 (Div ?b17 ?sphi2))
  (set (const1684) ?b1678)
  (let ?b1679 (Add ?sphi1 ?b1678))
  (set (const1685) ?b1679)
  (let ?b1680 (Mul ?sphi2 ?b1679))
  (set (const1686) ?b1680)
  (let ?b1681 (lower ?b1680 "binary64"))
  (set (const1687) ?b1681)
  (let ?r1682 (Approx ?b263 ?b1681))
  (set (const1688) ?r1682)
  (let ?b1683 (lower ?b1343 "binary64"))
  (set (const1689) ?b1683)
  (let ?r1684 (Approx ?b316 ?b1683))
  (set (const1690) ?r1684)
  (let ?b1685 (Div ?b306 ?sphi2))
  (set (const1691) ?b1685)
  (let ?b1686 (Mul ?b98 ?b1685))
  (set (const1692) ?b1686)
  (let ?b1687 (Div ?slambda1 ?sphi2))
  (set (const1693) ?b1687)
  (let ?b1688 (Add ?b1686 ?b1687))
  (set (const1694) ?b1688)
  (let ?b1689 (Div ?slambda2 ?sphi2))
  (set (const1695) ?b1689)
  (let ?b1690 (Add ?b87 ?b1689))
  (set (const1696) ?b1690)
  (let ?b1691 (Sub ?b1688 ?b1690))
  (set (const1697) ?b1691)
  (let ?b1692 (Mul ?sphi2 ?b1691))
  (set (const1698) ?b1692)
  (let ?b1693 (lower ?b1692 "binary64"))
  (set (const1699) ?b1693)
  (let ?r1694 (Approx ?b316 ?b1693))
  (set (const1700) ?r1694)
  (let ?b1695 (Add ?b87 ?b1688))
  (set (const1701) ?b1695)
  (let ?b1696 (Sub ?b1695 ?b1689))
  (set (const1702) ?b1696)
  (let ?b1697 (Mul ?sphi2 ?b1696))
  (set (const1703) ?b1697)
  (let ?b1698 (lower ?b1697 "binary64"))
  (set (const1704) ?b1698)
  (let ?r1699 (Approx ?b349 ?b1698))
  (set (const1705) ?r1699)
  (let ?b1700 (Mul ?b49 ?sphi1))
  (set (const1706) ?b1700)
  (let ?b1701 (Mul ?b49 ?b1678))
  (set (const1707) ?b1701)
  (let ?b1702 (Add ?b1700 ?b1701))
  (set (const1708) ?b1702)
  (let ?b1703 (Mul ?sphi2 ?b1702))
  (set (const1709) ?b1703)
  (let ?b1704 (Mul ?b49 ?b1703))
  (set (const1710) ?b1704)
  (let ?b1705 (lower ?b1704 "binary64"))
  (set (const1711) ?b1705)
  (let ?r1706 (Approx ?b263 ?b1705))
  (set (const1712) ?r1706)
  (let ?b1707 (Div ?b313 ?sphi2))
  (set (const1713) ?b1707)
  (let ?b1708 (Mul ?b49 ?b1707))
  (set (const1714) ?b1708)
  (let ?b1709 (Add ?b87 ?b1708))
  (set (const1715) ?b1709)
  (let ?b1710 (Mul ?sphi2 ?b1709))
  (set (const1716) ?b1710)
  (let ?b1711 (Mul ?b49 ?b1710))
  (set (const1717) ?b1711)
  (let ?b1712 (lower ?b1711 "binary64"))
  (set (const1718) ?b1712)
  (let ?r1713 (Approx ?b316 ?b1712))
  (set (const1719) ?r1713)
  (let ?b1714 (Sin ?b1541))
  (set (const1720) ?b1714)
  (let ?b1715 (lower ?b1714 "binary64"))
  (set (const1721) ?b1715)
  (let ?r1716 (Approx ?b324 ?b1715))
  (set (const1722) ?r1716)
  (let ?b1717 (Sub ?b1708 ?b87))
  (set (const1723) ?b1717)
  (let ?b1718 (Mul ?sphi2 ?b1717))
  (set (const1724) ?b1718)
  (let ?b1719 (Mul ?b49 ?b1718))
  (set (const1725) ?b1719)
  (let ?b1720 (lower ?b1719 "binary64"))
  (set (const1726) ?b1720)
  (let ?r1721 (Approx ?b349 ?b1720))
  (set (const1727) ?r1721)
  (let ?b1722 (Add ?slambda2 ?b1343))
  (set (const1728) ?b1722)
  (let ?b1723 (Sub ?b312 ?b1722))
  (set (const1729) ?b1723)
  (let ?b1724 (Sin ?b1723))
  (set (const1730) ?b1724)
  (let ?b1725 (lower ?b1724 "binary64"))
  (set (const1731) ?b1725)
  (let ?r1726 (Approx ?b358 ?b1725))
  (set (const1732) ?r1726)
  (let ?b1727 (Add ?b1724 ?b1714))
  (set (const1733) ?b1727)
  (let ?b1728 (lower ?b1727 "binary64"))
  (set (const1734) ?b1728)
  (let ?r1729 (Approx ?b383 ?b1728))
  (set (const1735) ?r1729)
  (let ?b1730 (Mul ?b98 ?b1727))
  (set (const1736) ?b1730)
  (let ?b1731 (lower ?b1730 "binary64"))
  (set (const1737) ?b1731)
  (let ?r1732 (Approx ?b416 ?b1731))
  (set (const1738) ?r1732)
  (let ?b1733 (Add ?b1730 ?b279))
  (set (const1739) ?b1733)
  (let ?b1734 (lower ?b1733 "binary64"))
  (set (const1740) ?b1734)
  (let ?r1735 (Approx ?b440 ?b1734))
  (set (const1741) ?r1735))
 :ruleset
 run-extract-commands)
(run-schedule (repeat 1 run-extract-commands))
(run-schedule (saturate lowering))
(extract (const13) 1000000)
(extract (const15) 1000000)
(extract (const34) 1000000)
(extract (const52) 1000000)
(extract (const54) 1000000)
(extract (const58) 1000000)
(extract (const60) 1000000)
(extract (const64) 1000000)
(extract (const70) 1000000)
(extract (const78) 1000000)
(extract (const88) 1000000)
(extract (const90) 1000000)
(extract (const92) 1000000)
(extract (const95) 1000000)
(extract (const101) 1000000)
(extract (const109) 1000000)
(extract (const118) 1000000)
(extract (const124) 1000000)
(extract (const132) 1000000)
(extract (const142) 1000000)
(extract (const145) 1000000)
(extract (const151) 1000000)
(extract (const159) 1000000)
(extract (const169) 1000000)
(extract (const171) 1000000)
(extract (const174) 1000000)
(extract (const181) 1000000)
(extract (const190) 1000000)
(extract (const194) 1000000)
(extract (const201) 1000000)
(extract (const209) 1000000)
(extract (const218) 1000000)
(extract (const221) 1000000)
(extract (const226) 1000000)
(extract (const233) 1000000)
(extract (const242) 1000000)
(extract (const246) 1000000)
(extract (const251) 1000000)
(extract (const258) 1000000)
(extract (const267) 1000000)
(extract (const272) 1000000)
(extract (const276) 1000000)
(extract (const280) 1000000)
(extract (const284) 1000000)
(extract (const289) 1000000)
(extract (const294) 1000000)
(extract (const302) 1000000)
(extract (const311) 1000000)
(extract (const317) 1000000)
(extract (const321) 1000000)
(extract (const326) 1000000)
(extract (const329) 1000000)
(extract (const333) 1000000)
(extract (const338) 1000000)
(extract (const345) 1000000)
(extract (const354) 1000000)
(extract (const359) 1000000)
(extract (const363) 1000000)
(extract (const367) 1000000)
(extract (const372) 1000000)
(extract (const379) 1000000)
(extract (const388) 1000000)
(extract (const392) 1000000)
(extract (const398) 1000000)
(extract (const407) 1000000)
(extract (const421) 1000000)
(extract (const425) 1000000)
(extract (const429) 1000000)
(extract (const436) 1000000)
(extract (const445) 1000000)
(extract (const449) 1000000)
(extract (const452) 1000000)
(extract (const456) 1000000)
(extract (const460) 1000000)
(extract (const463) 1000000)
(extract (const466) 1000000)
(extract (const469) 1000000)
(extract (const472) 1000000)
(extract (const474) 1000000)
(extract (const476) 1000000)
(extract (const482) 1000000)
(extract (const484) 1000000)
(extract (const490) 1000000)
(extract (const492) 1000000)
(extract (const494) 1000000)
(extract (const496) 1000000)
(extract (const498) 1000000)
(extract (const500) 1000000)
(extract (const502) 1000000)
(extract (const504) 1000000)
(extract (const506) 1000000)
(extract (const508) 1000000)
(extract (const515) 1000000)
(extract (const521) 1000000)
(extract (const524) 1000000)
(extract (const530) 1000000)
(extract (const533) 1000000)
(extract (const536) 1000000)
(extract (const539) 1000000)
(extract (const542) 1000000)
(extract (const544) 1000000)
(extract (const549) 1000000)
(extract (const555) 1000000)
(extract (const561) 1000000)
(extract (const565) 1000000)
(extract (const568) 1000000)
(extract (const571) 1000000)
(extract (const578) 1000000)
(extract (const585) 1000000)
(extract (const591) 1000000)
(extract (const598) 1000000)
(extract (const602) 1000000)
(extract (const605) 1000000)
(extract (const608) 1000000)
(extract (const611) 1000000)
(extract (const614) 1000000)
(extract (const617) 1000000)
(extract (const620) 1000000)
(extract (const622) 1000000)
(extract (const625) 1000000)
(extract (const629) 1000000)
(extract (const637) 1000000)
(extract (const646) 1000000)
(extract (const651) 1000000)
(extract (const657) 1000000)
(extract (const665) 1000000)
(extract (const670) 1000000)
(extract (const678) 1000000)
(extract (const688) 1000000)
(extract (const692) 1000000)
(extract (const698) 1000000)
(extract (const706) 1000000)
(extract (const716) 1000000)
(extract (const718) 1000000)
(extract (const723) 1000000)
(extract (const731) 1000000)
(extract (const741) 1000000)
(extract (const744) 1000000)
(extract (const750) 1000000)
(extract (const758) 1000000)
(extract (const763) 1000000)
(extract (const770) 1000000)
(extract (const779) 1000000)
(extract (const781) 1000000)
(extract (const787) 1000000)
(extract (const795) 1000000)
(extract (const805) 1000000)
(extract (const810) 1000000)
(extract (const815) 1000000)
(extract (const818) 1000000)
(extract (const824) 1000000)
(extract (const831) 1000000)
(extract (const840) 1000000)
(extract (const843) 1000000)
(extract (const847) 1000000)
(extract (const854) 1000000)
(extract (const863) 1000000)
(extract (const866) 1000000)
(extract (const869) 1000000)
(extract (const872) 1000000)
(extract (const875) 1000000)
(extract (const878) 1000000)
(extract (const882) 1000000)
(extract (const886) 1000000)
(extract (const890) 1000000)
(extract (const893) 1000000)
(extract (const896) 1000000)
(extract (const899) 1000000)
(extract (const902) 1000000)
(extract (const904) 1000000)
(extract (const908) 1000000)
(extract (const911) 1000000)
(extract (const914) 1000000)
(extract (const917) 1000000)
(extract (const923) 1000000)
(extract (const931) 1000000)
(extract (const940) 1000000)
(extract (const942) 1000000)
(extract (const946) 1000000)
(extract (const949) 1000000)
(extract (const955) 1000000)
(extract (const963) 1000000)
(extract (const972) 1000000)
(extract (const975) 1000000)
(extract (const981) 1000000)
(extract (const990) 1000000)
(extract (const1004) 1000000)
(extract (const1007) 1000000)
(extract (const1011) 1000000)
(extract (const1018) 1000000)
(extract (const1027) 1000000)
(extract (const1030) 1000000)
(extract (const1033) 1000000)
(extract (const1037) 1000000)
(extract (const1041) 1000000)
(extract (const1046) 1000000)
(extract (const1048) 1000000)
(extract (const1050) 1000000)
(extract (const1057) 1000000)
(extract (const1063) 1000000)
(extract (const1069) 1000000)
(extract (const1075) 1000000)
(extract (const1078) 1000000)
(extract (const1081) 1000000)
(extract (const1084) 1000000)
(extract (const1087) 1000000)
(extract (const1090) 1000000)
(extract (const1093) 1000000)
(extract (const1097) 1000000)
(extract (const1100) 1000000)
(extract (const1103) 1000000)
(extract (const1110) 1000000)
(extract (const1117) 1000000)
(extract (const1120) 1000000)
(extract (const1127) 1000000)
(extract (const1130) 1000000)
(extract (const1133) 1000000)
(extract (const1136) 1000000)
(extract (const1139) 1000000)
(extract (const1142) 1000000)
(extract (const1145) 1000000)
(extract (const1148) 1000000)
(extract (const1150) 1000000)
(extract (const1156) 1000000)
(extract (const1163) 1000000)
(extract (const1172) 1000000)
(extract (const1174) 1000000)
(extract (const1180) 1000000)
(extract (const1188) 1000000)
(extract (const1198) 1000000)
(extract (const1202) 1000000)
(extract (const1208) 1000000)
(extract (const1216) 1000000)
(extract (const1218) 1000000)
(extract (const1223) 1000000)
(extract (const1230) 1000000)
(extract (const1239) 1000000)
(extract (const1242) 1000000)
(extract (const1248) 1000000)
(extract (const1256) 1000000)
(extract (const1266) 1000000)
(extract (const1268) 1000000)
(extract (const1273) 1000000)
(extract (const1280) 1000000)
(extract (const1289) 1000000)
(extract (const1292) 1000000)
(extract (const1299) 1000000)
(extract (const1308) 1000000)
(extract (const1315) 1000000)
(extract (const1322) 1000000)
(extract (const1324) 1000000)
(extract (const1326) 1000000)
(extract (const1328) 1000000)
(extract (const1330) 1000000)
(extract (const1332) 1000000)
(extract (const1337) 1000000)
(extract (const1342) 1000000)
(extract (const1348) 1000000)
(extract (const1355) 1000000)
(extract (const1362) 1000000)
(extract (const1368) 1000000)
(extract (const1370) 1000000)
(extract (const1376) 1000000)
(extract (const1383) 1000000)
(extract (const1392) 1000000)
(extract (const1398) 1000000)
(extract (const1406) 1000000)
(extract (const1416) 1000000)
(extract (const1420) 1000000)
(extract (const1426) 1000000)
(extract (const1434) 1000000)
(extract (const1439) 1000000)
(extract (const1446) 1000000)
(extract (const1455) 1000000)
(extract (const1457) 1000000)
(extract (const1459) 1000000)
(extract (const1462) 1000000)
(extract (const1467) 1000000)
(extract (const1474) 1000000)
(extract (const1483) 1000000)
(extract (const1488) 1000000)
(extract (const1496) 1000000)
(extract (const1506) 1000000)
(extract (const1509) 1000000)
(extract (const1512) 1000000)
(extract (const1519) 1000000)
(extract (const1528) 1000000)
(extract (const1535) 1000000)
(extract (const1544) 1000000)
(extract (const1549) 1000000)
(extract (const1552) 1000000)
(extract (const1558) 1000000)
(extract (const1566) 1000000)
(extract (const1575) 1000000)
(extract (const1578) 1000000)
(extract (const1583) 1000000)
(extract (const1591) 1000000)
(extract (const1594) 1000000)
(extract (const1599) 1000000)
(extract (const1606) 1000000)
(extract (const1619) 1000000)
(extract (const1623) 1000000)
(extract (const1629) 1000000)
(extract (const1637) 1000000)
(extract (const1642) 1000000)
(extract (const1647) 1000000)
(extract (const1659) 1000000)
(extract (const1662) 1000000)
(extract (const1669) 1000000)
(extract (const1676) 1000000)
(extract (const1678) 1000000)
(extract (const1683) 1000000)
(extract (const1688) 1000000)
(extract (const1690) 1000000)
(extract (const1700) 1000000)
(extract (const1705) 1000000)
(extract (const1712) 1000000)
(extract (const1719) 1000000)
(extract (const1722) 1000000)
(extract (const1727) 1000000)
(extract (const1732) 1000000)
(extract (const1735) 1000000)
(extract (const1738) 1000000)
(extract (const1741) 1000000)