12.226 * [progress]: [Phase 1 of 3] Setting up.
0.003 * * * [progress]: [1/2] Preparing points
0.003 * * * * [points]: Sampling 256 additional inputs, on iter 0 have 0 / 256
0.004 * * * * [points]: Computing exacts on every 16 of 256 points to ramp up precision
0.009 * * * * [points]: Setting MPFR precision to 64
0.011 * * * * [points]: Setting MPFR precision to 320
0.012 * * * * [points]: Computing exacts on every 8 of 256 points to ramp up precision
0.016 * * * * [points]: Setting MPFR precision to 64
0.018 * * * * [points]: Setting MPFR precision to 320
0.020 * * * * [points]: Computing exacts on every 4 of 256 points to ramp up precision
0.022 * * * * [points]: Setting MPFR precision to 64
0.029 * * * * [points]: Setting MPFR precision to 320
0.032 * * * * [points]: Computing exacts on every 2 of 256 points to ramp up precision
0.034 * * * * [points]: Setting MPFR precision to 64
0.039 * * * * [points]: Setting MPFR precision to 320
0.044 * * * * [points]: Computing exacts for 256 points
0.046 * * * * [points]: Setting MPFR precision to 64
0.062 * * * * [points]: Setting MPFR precision to 320
0.089 * * * * [points]: Filtering points with unrepresentable outputs
0.090 * * * * [points]: Sampled 256 points with exact outputs
0.090 * * * [progress]: [2/2] Setting up program.
0.116 * [progress]: [Phase 2 of 3] Improving.
0.116 * * * * [progress]: [ 1 / 1 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.116 * [simplify]: Simplifying:
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
0.116 * * [simplify]: iteration 0: 14 enodes
0.122 * * [simplify]: iteration 1: 19 enodes
0.126 * * [simplify]: iteration 2: 26 enodes
0.130 * * [simplify]: iteration 3: 28 enodes
0.134 * * [simplify]: iteration complete: 28 enodes
0.134 * * [simplify]: Extracting #0: cost 1 inf + 0
0.134 * * [simplify]: Extracting #1: cost 3 inf + 0
0.134 * * [simplify]: Extracting #2: cost 5 inf + 0
0.134 * * [simplify]: Extracting #3: cost 8 inf + 1
0.135 * * [simplify]: Extracting #4: cost 11 inf + 2
0.135 * * [simplify]: Extracting #5: cost 8 inf + 86
0.135 * * [simplify]: Extracting #6: cost 9 inf + 488
0.135 * * [simplify]: Extracting #7: cost 9 inf + 809
0.135 * * [simplify]: Extracting #8: cost 7 inf + 1131
0.135 * * [simplify]: Extracting #9: cost 5 inf + 2535
0.135 * * [simplify]: Extracting #10: cost 2 inf + 5503
0.135 * * [simplify]: Extracting #11: cost 0 inf + 8150
0.136 * [simplify]: Simplified to:
  (*.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))) (real->posit16 0.5))
0.136 * * [progress]: iteration 1 / 4
0.136 * * * [progress]: picking best candidate
0.150 * * * * [pick]: Picked  #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.150 * * * [progress]: localizing error
0.459 * * * [progress]: generating rewritten candidates
0.459 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2)
0.461 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 1)
0.462 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2)
0.462 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 1 1)
0.466 * * * [progress]: generating series expansions
0.466 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2)
0.466 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 1)
0.466 * * * * [progress]: [ 3 / 4 ] generating series at (2 2)
0.466 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 1 1)
0.466 * * * [progress]: simplifying candidates
0.466 * * * * [progress]: [ 1 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.466 * * * * [progress]: [ 2 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (-.p16 (real->posit16 0.0) re))))))>
0.466 * * * * [progress]: [ 3 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (+.p16 (real->posit16 0.0) re))))))>
0.467 * * * * [progress]: [ 4 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (neg.p16 re))))))>
0.467 * * * * [progress]: [ 5 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 6 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 7 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (quire16->posit16 (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
0.467 * * * * [progress]: [ 8 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (quire16->posit16 (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0)))))))>
0.467 * * * * [progress]: [ 9 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 10 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 0.0))))))>
0.467 * * * * [progress]: [ 11 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 0.0))))))>
0.467 * * * * [progress]: [ 12 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 13 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))))))>
0.467 * * * * [progress]: [ 14 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))))))>
0.467 * * * * [progress]: [ 15 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.467 * * * * [progress]: [ 16 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (quire16->posit16 (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re)))))>
0.467 * * * * [progress]: [ 17 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (+.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.467 * * * * [progress]: [ 18 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) re)))))>
0.467 * * * * [progress]: [ 19 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) re)))))>
0.467 * * * * [progress]: [ 20 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.467 * * * * [progress]: [ 21 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 1.0)) re)))))>
0.467 * * * * [progress]: [ 22 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (/.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 1.0)) re)))))>
0.467 * * * * [progress]: [ 23 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 24 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (quire16->posit16 (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
0.467 * * * * [progress]: [ 25 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (real->posit16 0.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.467 * * * * [progress]: [ 26 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))) (real->posit16 0.0))))>
0.468 * * * * [progress]: [ 27 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (-.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))) (real->posit16 0.0))))>
0.468 * * * * [progress]: [ 28 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
0.468 * * * * [progress]: [ 29 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))) (real->posit16 1.0))))>
0.468 * * * * [progress]: [ 30 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (/.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))) (real->posit16 1.0))))>
0.468 * * * * [progress]: [ 31 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (+.p16 (*.p16 re re) (real->posit16 0.0)) (*.p16 im im))) re)))))>
0.468 * * * * [progress]: [ 32 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 0.0))) re)))))>
0.468 * * * * [progress]: [ 33 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (real->posit16 0.0) (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 34 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (+.p16 (real->posit16 0.0) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 35 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (-.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 0.0))) re)))))>
0.468 * * * * [progress]: [ 36 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (-.p16 (*.p16 re re) (-.p16 (real->posit16 0.0) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 37 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (*.p16 (real->posit16 1.0) (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 38 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (posit16->quire16 (+.p16 (*.p16 re re) (*.p16 im im))))) re)))))>
0.468 * * * * [progress]: [ 39 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) (*.p16 im im) (real->posit16 1.0)))) re)))))>
0.468 * * * * [progress]: [ 40 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
0.468 * * * * [progress]: [ 41 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (real->posit16 0.0) (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 42 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 0.0))) re)))))>
0.468 * * * * [progress]: [ 43 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (-.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 0.0))) re)))))>
0.468 * * * * [progress]: [ 44 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (*.p16 (real->posit16 1.0) (+.p16 (*.p16 re re) (*.p16 im im)))) re)))))>
0.468 * * * * [progress]: [ 45 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (*.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 1.0))) re)))))>
0.468 * * * * [progress]: [ 46 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (/.p16 (+.p16 (*.p16 re re) (*.p16 im im)) (real->posit16 1.0))) re)))))>
0.468 * * * * [progress]: [ 47 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))>
0.468 * * * * [progress]: [ 48 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.468 * * * * [progress]: [ 49 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.468 * * * * [progress]: [ 50 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.468 * * * * [progress]: [ 51 / 51 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))>
0.469 * [simplify]: Simplifying:
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (real->posit16 0.0) re)
  (+.p16 (real->posit16 0.0) re)
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (+.p16 (*.p16 re re) (real->posit16 0.0))
  (+.p16 (*.p16 re re) (*.p16 im im))
  (+.p16 (*.p16 re re) (*.p16 im im))
  (+.p16 (real->posit16 0.0) (*.p16 im im))
  (+.p16 (*.p16 re re) (*.p16 im im))
  (-.p16 (real->posit16 0.0) (*.p16 im im))
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 (*.p16 re re) (*.p16 im im)))
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) (*.p16 im im) (real->posit16 1.0))
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
0.469 * * [simplify]: iteration 0: 35 enodes
0.476 * * [simplify]: iteration 1: 49 enodes
0.484 * * [simplify]: iteration 2: 85 enodes
0.514 * * [simplify]: iteration 3: 243 enodes
0.634 * * [simplify]: iteration 4: 737 enodes
1.000 * * [simplify]: iteration complete: 2000 enodes
1.000 * * [simplify]: Extracting #0: cost 19 inf + 0
1.002 * * [simplify]: Extracting #1: cost 283 inf + 1
1.005 * * [simplify]: Extracting #2: cost 542 inf + 3301
1.012 * * [simplify]: Extracting #3: cost 500 inf + 33965
1.022 * * [simplify]: Extracting #4: cost 455 inf + 55381
1.048 * * [simplify]: Extracting #5: cost 182 inf + 328332
1.098 * * [simplify]: Extracting #6: cost 4 inf + 546727
1.154 * * [simplify]: Extracting #7: cost 0 inf + 552539
1.209 * [simplify]: Simplified to:
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (neg.p16 re)
  re
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 2.0))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (*.p16 re re)
  (+.p16 (*.p16 re re) (*.p16 im im))
  (+.p16 (*.p16 re re) (*.p16 im im))
  (*.p16 im im)
  (+.p16 (*.p16 re re) (*.p16 im im))
  (neg.p16 (*.p16 im im))
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 (*.p16 re re) (*.p16 im im)))
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) (*.p16 im im) (real->posit16 1.0))
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 2.0))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 2.0))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 2.0))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 2.0))))
1.215 * * * [progress]: adding candidates to table
2.371 * * [progress]: iteration 2 / 4
2.371 * * * [progress]: picking best candidate
2.405 * * * * [pick]: Picked  #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
2.405 * * * [progress]: localizing error
2.761 * * * [progress]: generating rewritten candidates
2.761 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 1 1 1)
2.762 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2)
2.766 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2 1 2 1)
2.767 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2)
2.768 * * * [progress]: generating series expansions
2.768 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 1 1 1)
2.768 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2)
2.768 * * * * [progress]: [ 3 / 4 ] generating series at (2 2 1 2 1)
2.768 * * * * [progress]: [ 4 / 4 ] generating series at (2 2)
2.768 * * * [progress]: simplifying candidates
2.768 * * * * [progress]: [ 1 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.768 * * * * [progress]: [ 2 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (-.p16 (real->posit16 0.0) re))))))>
2.768 * * * * [progress]: [ 3 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (+.p16 (real->posit16 0.0) re))))))>
2.768 * * * * [progress]: [ 4 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (neg.p16 re))))))>
2.768 * * * * [progress]: [ 5 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.768 * * * * [progress]: [ 6 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.768 * * * * [progress]: [ 7 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (quire16->posit16 (posit16->quire16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
2.768 * * * * [progress]: [ 8 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (quire16->posit16 (quire16-mul-sub (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re (real->posit16 1.0)))))))>
2.768 * * * * [progress]: [ 9 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.769 * * * * [progress]: [ 10 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 0.0))))))>
2.769 * * * * [progress]: [ 11 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 0.0))))))>
2.769 * * * * [progress]: [ 12 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.769 * * * * [progress]: [ 13 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 1.0))))))>
2.769 * * * * [progress]: [ 14 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 1.0))))))>
2.769 * * * * [progress]: [ 15 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re)))))>
2.769 * * * * [progress]: [ 16 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (quire16->posit16 (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))) re)))))>
2.769 * * * * [progress]: [ 17 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (+.p16 (real->posit16 0.0) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re)))))>
2.769 * * * * [progress]: [ 18 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 0.0)) re)))))>
2.769 * * * * [progress]: [ 19 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 0.0)) re)))))>
2.769 * * * * [progress]: [ 20 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re)))))>
2.769 * * * * [progress]: [ 21 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 1.0)) re)))))>
2.769 * * * * [progress]: [ 22 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (/.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 1.0)) re)))))>
2.769 * * * * [progress]: [ 23 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.770 * * * * [progress]: [ 24 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (quire16->posit16 (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
2.770 * * * * [progress]: [ 25 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (real->posit16 0.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.770 * * * * [progress]: [ 26 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))) (real->posit16 0.0))))>
2.770 * * * * [progress]: [ 27 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (-.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))) (real->posit16 0.0))))>
2.770 * * * * [progress]: [ 28 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
2.770 * * * * [progress]: [ 29 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))) (real->posit16 1.0))))>
2.770 * * * * [progress]: [ 30 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (/.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))) (real->posit16 1.0))))>
2.770 * * * * [progress]: [ 31 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
2.770 * * * * [progress]: [ 32 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
2.770 * * * * [progress]: [ 33 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
2.770 * * * * [progress]: [ 34 / 34 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))>
2.771 * [simplify]: Simplifying:
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (real->posit16 0.0) re)
  (+.p16 (real->posit16 0.0) re)
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
2.771 * * [simplify]: iteration 0: 26 enodes
2.782 * * [simplify]: iteration 1: 34 enodes
2.792 * * [simplify]: iteration 2: 50 enodes
2.811 * * [simplify]: iteration 3: 130 enodes
2.897 * * [simplify]: iteration 4: 413 enodes
3.156 * * [simplify]: iteration complete: 2003 enodes
3.156 * * [simplify]: Extracting #0: cost 12 inf + 0
3.156 * * [simplify]: Extracting #1: cost 186 inf + 1
3.160 * * [simplify]: Extracting #2: cost 763 inf + 2653
3.167 * * [simplify]: Extracting #3: cost 718 inf + 44494
3.208 * * [simplify]: Extracting #4: cost 212 inf + 367574
3.280 * * [simplify]: Extracting #5: cost 25 inf + 514781
3.358 * * [simplify]: Extracting #6: cost 0 inf + 518786
3.409 * [simplify]: Simplified to:
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (neg.p16 re)
  re
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) (*.p16 re re))
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 2.0))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
  (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)
3.412 * * * [progress]: adding candidates to table
4.016 * * [progress]: iteration 3 / 4
4.016 * * * [progress]: picking best candidate
4.031 * * * * [pick]: Picked  #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.031 * * * [progress]: localizing error
4.290 * * * [progress]: generating rewritten candidates
4.290 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 1)
4.293 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 2)
4.296 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2 1 2)
4.302 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 2 1)
4.303 * * * [progress]: generating series expansions
4.303 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 1)
4.303 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 2)
4.303 * * * * [progress]: [ 3 / 4 ] generating series at (2 2 1 2)
4.303 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 2 1)
4.303 * * * [progress]: simplifying candidates
4.303 * * * * [progress]: [ 1 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 2 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (real->posit16 0.0)) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 3 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 4 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 5 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 6 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 7 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (-.p16 (*.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.303 * * * * [progress]: [ 8 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (real->posit16 0.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 9 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (-.p16 (real->posit16 0.0) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 10 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (+.p16 (real->posit16 0.0) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 11 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 12 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (neg.p16 (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 13 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re))) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 14 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 15 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (posit16->quire16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 16 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 re re) (real->posit16 1.0))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 17 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 18 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (real->posit16 0.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 19 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 20 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 21 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 22 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 23 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.304 * * * * [progress]: [ 24 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (real->posit16 0.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.304 * * * * [progress]: [ 25 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (+.p16 (real->posit16 0.0) re)))))))>
4.304 * * * * [progress]: [ 26 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (-.p16 (real->posit16 0.0) re)))))))>
4.304 * * * * [progress]: [ 27 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (*.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.304 * * * * [progress]: [ 28 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (quire16->posit16 (posit16->quire16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))))>
4.304 * * * * [progress]: [ 29 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (quire16->posit16 (quire16-mul-add (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0))))))))>
4.304 * * * * [progress]: [ 30 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (real->posit16 0.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.304 * * * * [progress]: [ 31 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 0.0)))))))>
4.305 * * * * [progress]: [ 32 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (-.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 0.0)))))))>
4.305 * * * * [progress]: [ 33 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (*.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 34 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 35 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 36 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 re (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))))))))>
4.305 * * * * [progress]: [ 37 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.305 * * * * [progress]: [ 38 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.305 * * * * [progress]: [ 39 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 1.0))))))>
4.305 * * * * [progress]: [ 40 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 41 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))>
4.305 * * * * [progress]: [ 42 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))>
4.305 * * * * [progress]: [ 43 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 44 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 1.0))))))>
4.305 * * * * [progress]: [ 45 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re))) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))>
4.305 * * * * [progress]: [ 46 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 47 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 48 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 49 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 50 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 51 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 52 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 53 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)))))))>
4.305 * * * * [progress]: [ 54 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.305 * * * * [progress]: [ 55 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.306 * * * * [progress]: [ 56 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)))))))>
4.306 * * * * [progress]: [ 57 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.306 * * * * [progress]: [ 58 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.306 * * * * [progress]: [ 59 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (/.p16 (real->posit16 1.0) (real->posit16 1.0)))))))>
4.306 * * * * [progress]: [ 60 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (quire16->posit16 (posit16->quire16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))))>
4.306 * * * * [progress]: [ 61 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (real->posit16 0.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.306 * * * * [progress]: [ 62 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 0.0))))))>
4.306 * * * * [progress]: [ 63 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 0.0))))))>
4.306 * * * * [progress]: [ 64 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (real->posit16 1.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))>
4.306 * * * * [progress]: [ 65 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 1.0))))))>
4.306 * * * * [progress]: [ 66 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (real->posit16 1.0))))))>
4.306 * * * * [progress]: [ 67 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re))))))>
4.306 * * * * [progress]: [ 68 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (quire16->posit16 (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re))))))>
4.306 * * * * [progress]: [ 69 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (+.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re))))))>
4.306 * * * * [progress]: [ 70 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) re))))))>
4.306 * * * * [progress]: [ 71 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) re))))))>
4.306 * * * * [progress]: [ 72 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re))))))>
4.306 * * * * [progress]: [ 73 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 1.0)) re))))))>
4.306 * * * * [progress]: [ 74 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (/.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 1.0)) re))))))>
4.306 * * * * [progress]: [ 75 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.306 * * * * [progress]: [ 76 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.306 * * * * [progress]: [ 77 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.306 * * * * [progress]: [ 78 / 78 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))>
4.307 * [simplify]: Simplifying:
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (real->posit16 0.0))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (real->posit16 0.0)) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (-.p16 (*.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (-.p16 (real->posit16 0.0) (*.p16 re re))
  (+.p16 (real->posit16 0.0) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (neg.p16 (*.p16 re re))
  (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re)))
  (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))
  (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 re re) (real->posit16 1.0))
  (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re re)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (+.p16 (real->posit16 0.0) re)
  (-.p16 (real->posit16 0.0) re)
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (quire16-mul-add (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))
  (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))
  (real->posit16 1.0)
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (posit16->quire16 (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
4.308 * * [simplify]: iteration 0: 48 enodes
4.319 * * [simplify]: iteration 1: 85 enodes
4.337 * * [simplify]: iteration 2: 351 enodes
4.942 * * [simplify]: iteration 3: 1638 enodes
5.400 * * [simplify]: iteration complete: 2012 enodes
5.401 * * [simplify]: Extracting #0: cost 24 inf + 0
5.402 * * [simplify]: Extracting #1: cost 226 inf + 804
5.405 * * [simplify]: Extracting #2: cost 407 inf + 3294
5.409 * * [simplify]: Extracting #3: cost 439 inf + 18293
5.415 * * [simplify]: Extracting #4: cost 428 inf + 33032
5.422 * * [simplify]: Extracting #5: cost 397 inf + 46954
5.430 * * [simplify]: Extracting #6: cost 390 inf + 53970
5.453 * * [simplify]: Extracting #7: cost 264 inf + 212639
5.485 * * [simplify]: Extracting #8: cost 68 inf + 510090
5.518 * * [simplify]: Extracting #9: cost 0 inf + 629886
5.570 * [simplify]: Simplified to:
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (neg.p16 (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (neg.p16 (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (neg.p16 (*.p16 re re))
  (*.p16 re re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (neg.p16 (*.p16 re re))
  (*.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)))
  (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)))
  (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))) (*.p16 re re) (real->posit16 1.0))
  (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))) re re)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  re
  (neg.p16 re)
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (quire16-mul-add (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (*.p16 (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (real->posit16 1.0)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (real->posit16 1.0)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
5.588 * * * [progress]: adding candidates to table
6.945 * * [progress]: iteration 4 / 4
6.945 * * * [progress]: picking best candidate
7.062 * * * * [pick]: Picked  #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.062 * * * [progress]: localizing error
7.304 * * * [progress]: generating rewritten candidates
7.304 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 2 2)
7.306 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 2 2 1)
7.307 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2)
7.307 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 2)
7.310 * * * [progress]: generating series expansions
7.310 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 2 2)
7.310 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 2 2 1)
7.311 * * * * [progress]: [ 3 / 4 ] generating series at (2 2)
7.311 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 2)
7.311 * * * [progress]: simplifying candidates
7.311 * * * * [progress]: [ 1 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.311 * * * * [progress]: [ 2 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (-.p16 (real->posit16 0.0) re))))))))>
7.311 * * * * [progress]: [ 3 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (+.p16 (real->posit16 0.0) re))))))))>
7.311 * * * * [progress]: [ 4 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (neg.p16 re))))))))>
7.311 * * * * [progress]: [ 5 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (/.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.311 * * * * [progress]: [ 6 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.311 * * * * [progress]: [ 7 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (quire16->posit16 (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))))>
7.311 * * * * [progress]: [ 8 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (quire16->posit16 (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re (real->posit16 1.0)))))))))>
7.311 * * * * [progress]: [ 9 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (+.p16 (real->posit16 0.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.311 * * * * [progress]: [ 10 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (+.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 0.0))))))))>
7.311 * * * * [progress]: [ 11 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 0.0))))))))>
7.311 * * * * [progress]: [ 12 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (*.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.311 * * * * [progress]: [ 13 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.311 * * * * [progress]: [ 14 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.311 * * * * [progress]: [ 15 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re)))))))>
7.311 * * * * [progress]: [ 16 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (quire16->posit16 (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))) re)))))))>
7.311 * * * * [progress]: [ 17 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (+.p16 (real->posit16 0.0) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re)))))))>
7.311 * * * * [progress]: [ 18 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (real->posit16 0.0)) re)))))))>
7.311 * * * * [progress]: [ 19 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (real->posit16 0.0)) re)))))))>
7.311 * * * * [progress]: [ 20 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (real->posit16 1.0) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re)))))))>
7.311 * * * * [progress]: [ 21 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (real->posit16 1.0)) re)))))))>
7.312 * * * * [progress]: [ 22 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (/.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (real->posit16 1.0)) re)))))))>
7.312 * * * * [progress]: [ 23 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 24 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (quire16->posit16 (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))))>
7.312 * * * * [progress]: [ 25 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (real->posit16 0.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 26 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (+.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))) (real->posit16 0.0))))>
7.312 * * * * [progress]: [ 27 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (-.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))) (real->posit16 0.0))))>
7.312 * * * * [progress]: [ 28 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (real->posit16 1.0) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 29 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (*.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))) (real->posit16 1.0))))>
7.312 * * * * [progress]: [ 30 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (/.p16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))) (real->posit16 1.0))))>
7.312 * * * * [progress]: [ 31 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.312 * * * * [progress]: [ 32 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.312 * * * * [progress]: [ 33 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 1.0)))))))>
7.312 * * * * [progress]: [ 34 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.312 * * * * [progress]: [ 35 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.312 * * * * [progress]: [ 36 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.312 * * * * [progress]: [ 37 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.312 * * * * [progress]: [ 38 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 1.0)))))))>
7.312 * * * * [progress]: [ 39 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))))))))>
7.312 * * * * [progress]: [ 40 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 41 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 42 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 43 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (/.p16 (real->posit16 1.0) (real->posit16 1.0))))))))>
7.312 * * * * [progress]: [ 44 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.312 * * * * [progress]: [ 45 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.313 * * * * [progress]: [ 46 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (/.p16 (real->posit16 1.0) (real->posit16 1.0))))))))>
7.313 * * * * [progress]: [ 47 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.313 * * * * [progress]: [ 48 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (real->posit16 1.0)) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.313 * * * * [progress]: [ 49 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (/.p16 (real->posit16 1.0) (real->posit16 1.0))))))))>
7.313 * * * * [progress]: [ 50 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (quire16->posit16 (posit16->quire16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))))>
7.313 * * * * [progress]: [ 51 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (+.p16 (real->posit16 0.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.313 * * * * [progress]: [ 52 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (+.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 0.0)))))))>
7.313 * * * * [progress]: [ 53 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (-.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 0.0)))))))>
7.313 * * * * [progress]: [ 54 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))))>
7.313 * * * * [progress]: [ 55 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 1.0)))))))>
7.313 * * * * [progress]: [ 56 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)) (real->posit16 1.0)))))))>
7.313 * * * * [progress]: [ 57 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.313 * * * * [progress]: [ 58 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.313 * * * * [progress]: [ 59 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.313 * * * * [progress]: [ 60 / 60 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>
7.314 * [simplify]: Simplifying:
  (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (-.p16 (real->posit16 0.0) re)
  (+.p16 (real->posit16 0.0) re)
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))
  (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))
  (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (*.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (real->posit16 1.0))
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))
  (/.p16 (real->posit16 1.0) (real->posit16 1.0))
  (posit16->quire16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re))))))
7.314 * * [simplify]: iteration 0: 35 enodes
7.321 * * [simplify]: iteration 1: 50 enodes
7.336 * * [simplify]: iteration 2: 87 enodes
7.364 * * [simplify]: iteration 3: 301 enodes
7.526 * * [simplify]: iteration 4: 1082 enodes
7.779 * * [simplify]: iteration complete: 2002 enodes
7.779 * * [simplify]: Extracting #0: cost 15 inf + 0
7.780 * * [simplify]: Extracting #1: cost 151 inf + 82
7.781 * * [simplify]: Extracting #2: cost 298 inf + 405
7.783 * * [simplify]: Extracting #3: cost 398 inf + 33500
7.787 * * [simplify]: Extracting #4: cost 282 inf + 98807
7.792 * * [simplify]: Extracting #5: cost 243 inf + 117145
7.804 * * [simplify]: Extracting #6: cost 82 inf + 287102
7.830 * * [simplify]: Extracting #7: cost 6 inf + 384161
7.871 * * [simplify]: Extracting #8: cost 0 inf + 391898
7.911 * [simplify]: Simplified to:
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (neg.p16 re)
  re
  (neg.p16 re)
  (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))
  (+.p16 re (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))
  (real->posit16 1.0)
  (posit16->quire16 (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (quire16-mul-sub (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) re (real->posit16 1.0))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (posit16->quire16 (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re)))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))
  (real->posit16 1.0)
  (posit16->quire16 (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 0.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (real->posit16 1.0)
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))
7.922 * * * [progress]: adding candidates to table
9.053 * [progress]: [Phase 3 of 3] Extracting.
9.053 * * [regime]: Finding splitpoints for: (#<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re))) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>)
9.056 * * * [regime-changes]: Trying 2 branch expressions: (im re)
9.056 * * * * [regimes]: Trying to branch on im from (#<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re))) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>)
9.274 * * * * [regimes]: Trying to branch on re from (#<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.p16 (*.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) (*.p16 (*.p16 re re) (*.p16 re re))) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (+.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im)))) (*.p16 re re))))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (/.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re)) (/.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (*.p16 (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (/.p16 (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (*.p16 (/.p16 (real->posit16 1.0) (-.p16 (*.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re)))) (*.p16 re re))) (+.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))))) re re)) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re))))))> #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (real->posit16 1.0) (/.p16 (real->posit16 1.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 im im) (*.p16 re re))) re)))))))>)
9.475 * * * [regime]: Found split indices: #<option (#s(si 1 256))>
9.475 * [simplify]: Simplifying:
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))
9.475 * * [simplify]: iteration 0: 15 enodes
9.476 * * [simplify]: iteration complete: 15 enodes
9.476 * * [simplify]: Extracting #0: cost 1 inf + 0
9.476 * * [simplify]: Extracting #1: cost 3 inf + 0
9.476 * * [simplify]: Extracting #2: cost 5 inf + 0
9.476 * * [simplify]: Extracting #3: cost 6 inf + 1
9.476 * * [simplify]: Extracting #4: cost 8 inf + 2
9.477 * * [simplify]: Extracting #5: cost 6 inf + 5
9.477 * * [simplify]: Extracting #6: cost 7 inf + 5
9.477 * * [simplify]: Extracting #7: cost 9 inf + 5
9.477 * * [simplify]: Extracting #8: cost 9 inf + 6
9.477 * * [simplify]: Extracting #9: cost 8 inf + 327
9.477 * * [simplify]: Extracting #10: cost 5 inf + 1292
9.477 * * [simplify]: Extracting #11: cost 3 inf + 2096
9.477 * * [simplify]: Extracting #12: cost 1 inf + 3662
9.477 * * [simplify]: Extracting #13: cost 0 inf + 4786
9.478 * [simplify]: Simplified to:
  (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))
9.478 * * * * [points]: Sampling 8000 additional inputs, on iter 0 have 0 / 8000
9.500 * * * * [points]: Computing exacts on every 500 of 8000 points to ramp up precision
9.502 * * * * [points]: Setting MPFR precision to 64
9.503 * * * * [points]: Setting MPFR precision to 320
9.504 * * * * [points]: Computing exacts on every 250 of 8000 points to ramp up precision
9.506 * * * * [points]: Setting MPFR precision to 64
9.508 * * * * [points]: Setting MPFR precision to 320
9.510 * * * * [points]: Computing exacts on every 125 of 8000 points to ramp up precision
9.512 * * * * [points]: Setting MPFR precision to 64
9.516 * * * * [points]: Setting MPFR precision to 320
9.519 * * * * [points]: Computing exacts on every 62 of 8000 points to ramp up precision
9.522 * * * * [points]: Setting MPFR precision to 64
9.529 * * * * [points]: Setting MPFR precision to 320
9.545 * * * * [points]: Computing exacts on every 31 of 8000 points to ramp up precision
9.548 * * * * [points]: Setting MPFR precision to 64
9.564 * * * * [points]: Setting MPFR precision to 320
9.579 * * * * [points]: Computing exacts on every 15 of 8000 points to ramp up precision
9.581 * * * * [points]: Setting MPFR precision to 64
9.610 * * * * [points]: Setting MPFR precision to 320
9.641 * * * * [points]: Computing exacts on every 7 of 8000 points to ramp up precision
9.643 * * * * [points]: Setting MPFR precision to 64
9.729 * * * * [points]: Setting MPFR precision to 320
9.789 * * * * [points]: Computing exacts on every 3 of 8000 points to ramp up precision
9.792 * * * * [points]: Setting MPFR precision to 64
9.938 * * * * [points]: Setting MPFR precision to 320
10.090 * * * * [points]: Computing exacts for 8000 points
10.092 * * * * [points]: Setting MPFR precision to 64
11.225 * * * * [points]: Setting MPFR precision to 320
12.151 * * * * [points]: Filtering points with unrepresentable outputs
12.180 * * * * [points]: Sampled 8000 points with exact outputs
18.680 * [regime-testing]: Baseline error score: 2.0662203147480955
18.682 * [regime-testing]: Oracle error score: 1.61380794013984
18.686 * [regime-testing]: End program error score: 2.0662203147480955