13.387 * [progress]: [Phase 1 of 3] Setting up.
0.002 * * * [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.010 * * * * [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.019 * * * * [points]: Setting MPFR precision to 320
0.022 * * * * [points]: Computing exacts on every 4 of 256 points to ramp up precision
0.025 * * * * [points]: Setting MPFR precision to 64
0.030 * * * * [points]: Setting MPFR precision to 320
0.035 * * * * [points]: Computing exacts on every 2 of 256 points to ramp up precision
0.039 * * * * [points]: Setting MPFR precision to 64
0.048 * * * * [points]: Setting MPFR precision to 320
0.053 * * * * [points]: Computing exacts for 256 points
0.056 * * * * [points]: Setting MPFR precision to 64
0.072 * * * * [points]: Setting MPFR precision to 320
0.104 * * * * [points]: Filtering points with unrepresentable outputs
0.105 * * * * [points]: Sampled 256 points with exact outputs
0.105 * * * [progress]: [2/2] Setting up program.
0.120 * [progress]: [Phase 2 of 3] Improving.
0.120 * * * * [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.120 * [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.120 * * [simplify]: iteration 0: 14 enodes
0.126 * * [simplify]: iteration 1: 19 enodes
0.133 * * [simplify]: iteration 2: 26 enodes
0.142 * * [simplify]: iteration 3: 28 enodes
0.150 * * [simplify]: iteration complete: 28 enodes
0.150 * * [simplify]: Extracting #0: cost 1 inf + 0
0.150 * * [simplify]: Extracting #1: cost 3 inf + 0
0.150 * * [simplify]: Extracting #2: cost 5 inf + 0
0.150 * * [simplify]: Extracting #3: cost 8 inf + 1
0.150 * * [simplify]: Extracting #4: cost 11 inf + 2
0.150 * * [simplify]: Extracting #5: cost 8 inf + 86
0.151 * * [simplify]: Extracting #6: cost 9 inf + 488
0.151 * * [simplify]: Extracting #7: cost 9 inf + 809
0.151 * * [simplify]: Extracting #8: cost 7 inf + 1131
0.151 * * [simplify]: Extracting #9: cost 5 inf + 2535
0.152 * * [simplify]: Extracting #10: cost 2 inf + 5503
0.152 * * [simplify]: Extracting #11: cost 0 inf + 8150
0.153 * [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.154 * * [progress]: iteration 1 / 4
0.154 * * * [progress]: picking best candidate
0.181 * * * * [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.181 * * * [progress]: localizing error
0.470 * * * [progress]: generating rewritten candidates
0.470 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2)
0.475 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 1)
0.475 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2)
0.476 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 1 1)
0.487 * * * [progress]: generating series expansions
0.487 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2)
0.487 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 1)
0.487 * * * * [progress]: [ 3 / 4 ] generating series at (2 2)
0.487 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 1 1)
0.487 * * * [progress]: simplifying candidates
0.487 * * * * [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.487 * * * * [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.487 * * * * [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.487 * * * * [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.487 * * * * [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.487 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.488 * * * * [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.489 * * * * [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.489 * * * * [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.489 * * * * [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.489 * * * * [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.489 * * * * [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.489 * * * * [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.489 * * * * [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.500 * * * * [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.500 * * * * [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.500 * * * * [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.500 * * * * [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.500 * * * * [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.500 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.501 * * * * [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.502 * * * * [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.502 * * * * [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.502 * * * * [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.503 * [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.503 * * [simplify]: iteration 0: 35 enodes
0.514 * * [simplify]: iteration 1: 49 enodes
0.523 * * [simplify]: iteration 2: 85 enodes
0.542 * * [simplify]: iteration 3: 243 enodes
0.721 * * [simplify]: iteration 4: 737 enodes
2.474 * * [simplify]: iteration 5: 3200 enodes
4.490 * * [simplify]: iteration complete: 5131 enodes
4.491 * * [simplify]: Extracting #0: cost 19 inf + 0
4.493 * * [simplify]: Extracting #1: cost 606 inf + 1
4.499 * * [simplify]: Extracting #2: cost 881 inf + 5235
4.507 * * [simplify]: Extracting #3: cost 1097 inf + 36184
4.546 * * [simplify]: Extracting #4: cost 493 inf + 508788
4.646 * * [simplify]: Extracting #5: cost 20 inf + 1027658
4.755 * * [simplify]: Extracting #6: cost 0 inf + 1050313
4.861 * [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 (-.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))))
4.866 * * * [progress]: adding candidates to table
6.247 * * [progress]: iteration 2 / 4
6.247 * * * [progress]: picking best candidate
6.311 * * * * [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)))))>
6.311 * * * [progress]: localizing error
6.656 * * * [progress]: generating rewritten candidates
6.656 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 1 1 1)
6.656 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2)
6.663 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2 1 2 1)
6.663 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2)
6.665 * * * [progress]: generating series expansions
6.665 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 1 1 1)
6.665 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2)
6.665 * * * * [progress]: [ 3 / 4 ] generating series at (2 2 1 2 1)
6.665 * * * * [progress]: [ 4 / 4 ] generating series at (2 2)
6.665 * * * [progress]: simplifying candidates
6.665 * * * * [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))))))>
6.665 * * * * [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))))))>
6.665 * * * * [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))))))>
6.665 * * * * [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))))))>
6.665 * * * * [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))))))>
6.665 * * * * [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))))))>
6.665 * * * * [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)))))))>
6.666 * * * * [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)))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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))))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.666 * * * * [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)))))>
6.667 * * * * [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)))))>
6.667 * * * * [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))))))>
6.667 * * * * [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)))))))>
6.667 * * * * [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))))))>
6.667 * * * * [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))))>
6.667 * * * * [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))))>
6.667 * * * * [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))))))>
6.667 * * * * [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))))>
6.667 * * * * [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))))>
6.667 * * * * [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)))))>
6.667 * * * * [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)))))>
6.667 * * * * [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)))))>
6.667 * * * * [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)))))>
6.668 * [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)
6.669 * * [simplify]: iteration 0: 26 enodes
6.679 * * [simplify]: iteration 1: 34 enodes
6.691 * * [simplify]: iteration 2: 50 enodes
6.710 * * [simplify]: iteration 3: 130 enodes
6.776 * * [simplify]: iteration 4: 413 enodes
7.072 * * [simplify]: iteration 5: 2145 enodes
9.644 * * [simplify]: iteration complete: 5027 enodes
9.645 * * [simplify]: Extracting #0: cost 12 inf + 0
9.647 * * [simplify]: Extracting #1: cost 397 inf + 1
9.653 * * [simplify]: Extracting #2: cost 1117 inf + 1932
9.667 * * [simplify]: Extracting #3: cost 1890 inf + 26812
9.695 * * [simplify]: Extracting #4: cost 841 inf + 545801
9.772 * * [simplify]: Extracting #5: cost 38 inf + 1127417
9.880 * * [simplify]: Extracting #6: cost 0 inf + 1157318
9.970 * [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)
9.973 * * * [progress]: adding candidates to table
10.783 * * [progress]: iteration 3 / 4
10.783 * * * [progress]: picking best candidate
10.814 * * * * [pick]: Picked  #<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))))))>
10.814 * * * [progress]: localizing error
11.295 * * * [progress]: generating rewritten candidates
11.295 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 2 1 1 1)
11.295 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 1 1 2 1 1)
11.307 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2 1 2 1 1 1 1 1)
11.308 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 1)
11.317 * * * [progress]: generating series expansions
11.317 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 2 1 1 1)
11.318 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 1 1 2 1 1)
11.318 * * * * [progress]: [ 3 / 4 ] generating series at (2 2 1 2 1 1 1 1 1)
11.319 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 1)
11.319 * * * [progress]: simplifying candidates
11.319 * * * * [progress]: [ 1 / 27 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 2 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.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)))) (real->posit16 0.0)) (*.p16 re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 3 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.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)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 4 / 27 ] 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))) (real->posit16 0.0)) (-.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))))))>
11.319 * * * * [progress]: [ 5 / 27 ] 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 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 0.0)) (*.p16 re re))) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 6 / 27 ] 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 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) (-.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))))))>
11.319 * * * * [progress]: [ 7 / 27 ] 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 (*.p16 (real->posit16 0.0) (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))))))>
11.319 * * * * [progress]: [ 8 / 27 ] 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 (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))))))>
11.319 * * * * [progress]: [ 9 / 27 ] 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 (real->posit16 0.0) (*.p16 re re))) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 10 / 27 ] 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 (real->posit16 0.0) (*.p16 re re))) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.319 * * * * [progress]: [ 11 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.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)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 12 / 27 ] 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)))) (neg.p16 (*.p16 re re))) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 13 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.p16 (-.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 (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 (*.p16 re re) (*.p16 re 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))))))>
11.320 * * * * [progress]: [ 14 / 27 ] 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 (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))))))>
11.320 * * * * [progress]: [ 15 / 27 ] 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 (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))))))>
11.320 * * * * [progress]: [ 16 / 27 ] 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 (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) (real->posit16 1.0))) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 17 / 27 ] 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 (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))))) re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 18 / 27 ] 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 (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))))))>
11.320 * * * * [progress]: [ 19 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (+.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)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 20 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (-.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)) (real->posit16 0.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 21 / 27 ] 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 (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))))))>
11.320 * * * * [progress]: [ 22 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (*.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)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.320 * * * * [progress]: [ 23 / 27 ] simplifiying candidate #<alt (λ (re im) (*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (/.p16 (/.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)) (real->posit16 1.0)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
11.321 * * * * [progress]: [ 24 / 27 ] 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))))))>
11.321 * * * * [progress]: [ 25 / 27 ] 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))))))>
11.321 * * * * [progress]: [ 26 / 27 ] 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))))))>
11.321 * * * * [progress]: [ 27 / 27 ] 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))))))>
11.322 * [simplify]: Simplifying:
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) 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)))) (real->posit16 0.0))
  (-.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 (*.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 (*.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (real->posit16 0.0)) (*.p16 re 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 (*.p16 (real->posit16 0.0) (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) (*.p16 re 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 (real->posit16 0.0) (*.p16 re re))
  (+.p16 (real->posit16 0.0) (*.p16 re 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))
  (neg.p16 (*.p16 re re))
  (-.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 (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 (*.p16 re re) (*.p16 re 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))
  (real->posit16 1.0)
  (posit16->quire16 (-.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)))
  (quire16-mul-sub (posit16->quire16 (*.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) (real->posit16 1.0))
  (quire16-mul-sub (posit16->quire16 (*.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))))) 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 (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)
  (-.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)
  (-.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)
  (-.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)
11.322 * * [simplify]: iteration 0: 31 enodes
11.336 * * [simplify]: iteration 1: 57 enodes
11.357 * * [simplify]: iteration 2: 152 enodes
11.500 * * [simplify]: iteration 3: 553 enodes
34.485 * * [simplify]: iteration complete: 5000 enodes
34.486 * * [simplify]: Extracting #0: cost 13 inf + 0
34.489 * * [simplify]: Extracting #1: cost 918 inf + 0
34.499 * * [simplify]: Extracting #2: cost 1975 inf + 288
34.519 * * [simplify]: Extracting #3: cost 1878 inf + 94255
34.547 * * [simplify]: Extracting #4: cost 1769 inf + 146636
34.572 * * [simplify]: Extracting #5: cost 1748 inf + 159792
34.590 * * [simplify]: Extracting #6: cost 1718 inf + 179069
34.651 * * [simplify]: Extracting #7: cost 705 inf + 1124417
34.846 * * [simplify]: Extracting #8: cost 21 inf + 1879374
35.007 * * [simplify]: Extracting #9: cost 0 inf + 1912028
35.246 * [simplify]: Simplified to:
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (*.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 (*.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 (*.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))
  (neg.p16 (*.p16 re 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))
  (neg.p16 (*.p16 re 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))
  (neg.p16 (*.p16 re re))
  (*.p16 re 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))
  (neg.p16 (*.p16 re re))
  (*.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 (*.p16 re re) (*.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 (*.p16 re re) (*.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)))))
  (real->posit16 1.0)
  (posit16->quire16 (-.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)))
  (quire16-mul-sub (posit16->quire16 (*.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) (real->posit16 1.0))
  (quire16-mul-sub (posit16->quire16 (*.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))))) 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 (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))))
  (-.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))))
  (-.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))))
  (-.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))))
35.254 * * * [progress]: adding candidates to table
35.736 * * [progress]: iteration 4 / 4
35.736 * * * [progress]: picking best candidate
35.832 * * * * [pick]: Picked  #<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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
35.832 * * * [progress]: localizing error
36.166 * * * [progress]: generating rewritten candidates
36.166 * * * * [progress]: [ 1 / 4 ] rewriting at (2 2 1 2 2 1 1 1)
36.167 * * * * [progress]: [ 2 / 4 ] rewriting at (2 2 1 2 1 2 1 1 1)
36.167 * * * * [progress]: [ 3 / 4 ] rewriting at (2 2 1 2 1 1 1 1 1)
36.168 * * * * [progress]: [ 4 / 4 ] rewriting at (2 2 1 2 2)
36.176 * * * [progress]: generating series expansions
36.176 * * * * [progress]: [ 1 / 4 ] generating series at (2 2 1 2 2 1 1 1)
36.176 * * * * [progress]: [ 2 / 4 ] generating series at (2 2 1 2 1 2 1 1 1)
36.176 * * * * [progress]: [ 3 / 4 ] generating series at (2 2 1 2 1 1 1 1 1)
36.176 * * * * [progress]: [ 4 / 4 ] generating series at (2 2 1 2 2)
36.176 * * * [progress]: simplifying candidates
36.176 * * * * [progress]: [ 1 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (real->posit16 0.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
36.176 * * * * [progress]: [ 2 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (+.p16 (real->posit16 0.0) re)))))))>
36.176 * * * * [progress]: [ 3 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) (-.p16 (real->posit16 0.0) re)))))))>
36.177 * * * * [progress]: [ 4 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (*.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
36.177 * * * * [progress]: [ 5 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (quire16->posit16 (posit16->quire16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))))>
36.177 * * * * [progress]: [ 6 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (quire16->posit16 (quire16-mul-add (posit16->quire16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))) re (real->posit16 1.0))))))))>
36.177 * * * * [progress]: [ 7 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (real->posit16 0.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
36.177 * * * * [progress]: [ 8 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 0.0)))))))>
36.177 * * * * [progress]: [ 9 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (-.p16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 0.0)))))))>
36.177 * * * * [progress]: [ 10 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (*.p16 (real->posit16 1.0) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)))))))>
36.177 * * * * [progress]: [ 11 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (*.p16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 1.0)))))))>
36.177 * * * * [progress]: [ 12 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (/.p16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (real->posit16 1.0)))))))>
36.177 * * * * [progress]: [ 13 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))))))))>
36.177 * * * * [progress]: [ 14 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
36.177 * * * * [progress]: [ 15 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
36.178 * * * * [progress]: [ 16 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
36.178 * * * * [progress]: [ 17 / 17 ] 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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>
36.178 * [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)
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))
  (quire16-mul-add (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)
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
36.178 * * [simplify]: iteration 0: 18 enodes
36.186 * * [simplify]: iteration 1: 23 enodes
36.193 * * [simplify]: iteration 2: 25 enodes
36.201 * * [simplify]: iteration 3: 38 enodes
36.221 * * [simplify]: iteration 4: 75 enodes
36.250 * * [simplify]: iteration 5: 198 enodes
36.500 * * [simplify]: iteration 6: 760 enodes
37.031 * * [simplify]: iteration 7: 1549 enodes
37.251 * * [simplify]: iteration complete: 5038 enodes
37.251 * * [simplify]: Extracting #0: cost 8 inf + 0
37.251 * * [simplify]: Extracting #1: cost 216 inf + 1
37.253 * * [simplify]: Extracting #2: cost 176 inf + 8746
37.255 * * [simplify]: Extracting #3: cost 94 inf + 26869
37.264 * * [simplify]: Extracting #4: cost 87 inf + 30205
37.266 * * [simplify]: Extracting #5: cost 87 inf + 30206
37.269 * * [simplify]: Extracting #6: cost 160 inf + 30527
37.277 * * [simplify]: Extracting #7: cost 2212 inf + 73319
37.313 * * [simplify]: Extracting #8: cost 7 inf + 836233
37.356 * * [simplify]: Extracting #9: cost 0 inf + 839486
37.397 * [simplify]: Simplified to:
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  re
  (neg.p16 re)
  (real->posit16 1.0)
  (posit16->quire16 (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im)))))
  (quire16-mul-add (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)
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
  (+.p16 re (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))))
  (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)
37.399 * * * [progress]: adding candidates to table
37.819 * [progress]: [Phase 3 of 3] Extracting.
37.819 * * [regime]: Finding splitpoints for: (#<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))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.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 (*.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))))))> #<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 (*.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 (*.p16 re re) (*.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 (*.p16 re re) (*.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 (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 (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 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.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))))) re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>)
37.824 * * * [regime-changes]: Trying 2 branch expressions: (im re)
37.824 * * * * [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 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.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 (*.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))))))> #<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 (*.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 (*.p16 re re) (*.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 (*.p16 re re) (*.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 (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 (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 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.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))))) re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>)
37.998 * * * * [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 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re) (-.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re)) (+.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 (*.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))))))> #<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 (*.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 (*.p16 re re) (*.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 (*.p16 re re) (*.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 (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 (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 (quire16->posit16 (quire16-mul-sub (posit16->quire16 (*.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))))) re re)) (+.p16 (sqrt.p16 (quire16->posit16 (quire16-mul-add (posit16->quire16 (*.p16 re re)) im im))) re))))))>)
38.166 * * * [regime]: Found split indices: #<option (#s(si 2 256))>
38.166 * [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))))
38.166 * * [simplify]: iteration 0: 15 enodes
38.167 * * [simplify]: iteration complete: 15 enodes
38.167 * * [simplify]: Extracting #0: cost 1 inf + 0
38.167 * * [simplify]: Extracting #1: cost 3 inf + 0
38.167 * * [simplify]: Extracting #2: cost 5 inf + 0
38.167 * * [simplify]: Extracting #3: cost 6 inf + 1
38.167 * * [simplify]: Extracting #4: cost 8 inf + 2
38.167 * * [simplify]: Extracting #5: cost 6 inf + 5
38.167 * * [simplify]: Extracting #6: cost 7 inf + 5
38.167 * * [simplify]: Extracting #7: cost 9 inf + 5
38.167 * * [simplify]: Extracting #8: cost 9 inf + 6
38.168 * * [simplify]: Extracting #9: cost 8 inf + 327
38.168 * * [simplify]: Extracting #10: cost 5 inf + 1292
38.168 * * [simplify]: Extracting #11: cost 3 inf + 2096
38.168 * * [simplify]: Extracting #12: cost 1 inf + 3662
38.168 * * [simplify]: Extracting #13: cost 0 inf + 4786
38.168 * [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))))
38.168 * * * * [points]: Sampling 8000 additional inputs, on iter 0 have 0 / 8000
38.190 * * * * [points]: Computing exacts on every 500 of 8000 points to ramp up precision
38.193 * * * * [points]: Setting MPFR precision to 64
38.194 * * * * [points]: Setting MPFR precision to 320
38.195 * * * * [points]: Computing exacts on every 250 of 8000 points to ramp up precision
38.197 * * * * [points]: Setting MPFR precision to 64
38.199 * * * * [points]: Setting MPFR precision to 320
38.201 * * * * [points]: Computing exacts on every 125 of 8000 points to ramp up precision
38.211 * * * * [points]: Setting MPFR precision to 64
38.216 * * * * [points]: Setting MPFR precision to 320
38.220 * * * * [points]: Computing exacts on every 62 of 8000 points to ramp up precision
38.222 * * * * [points]: Setting MPFR precision to 64
38.230 * * * * [points]: Setting MPFR precision to 320
38.242 * * * * [points]: Computing exacts on every 31 of 8000 points to ramp up precision
38.247 * * * * [points]: Setting MPFR precision to 64
38.273 * * * * [points]: Setting MPFR precision to 320
38.301 * * * * [points]: Computing exacts on every 15 of 8000 points to ramp up precision
38.305 * * * * [points]: Setting MPFR precision to 64
38.357 * * * * [points]: Setting MPFR precision to 320
38.411 * * * * [points]: Computing exacts on every 7 of 8000 points to ramp up precision
38.452 * * * * [points]: Setting MPFR precision to 64
38.562 * * * * [points]: Setting MPFR precision to 320
38.672 * * * * [points]: Computing exacts on every 3 of 8000 points to ramp up precision
38.677 * * * * [points]: Setting MPFR precision to 64
38.951 * * * * [points]: Setting MPFR precision to 320
39.212 * * * * [points]: Computing exacts for 8000 points
39.216 * * * * [points]: Setting MPFR precision to 64
40.225 * * * * [points]: Setting MPFR precision to 320
41.503 * * * * [points]: Filtering points with unrepresentable outputs
41.520 * * * * [points]: Sampled 8000 points with exact outputs
46.540 * [regime-testing]: Baseline error score: 2.0774970059447715
46.543 * [regime-testing]: Oracle error score: 1.7040578528782755
46.547 * [regime-testing]: End program error score: 2.0774970059447715