* [misc]progress:  [Phase 1 of 3] Setting up.
* * * [misc]progress:  [1/2] Preparing points
* * * [misc]progress:  [2/2] Setting up program.
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (102 enodes)
* * [misc]simplify:  iters left: 2 (193 enodes)
* * [misc]simplify:  iters left: 1 (458 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* [misc]progress:  [Phase 2 of 3] Improving.
* * [misc]progress:  iteration 1 / 3
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/8 in J
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/8 (sqr (cos (* 1/2 K)))) into (/ 1/8 (sqr (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ 1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 K))) (* 1 (* (/ 1 J) (/ 1 (/ 1 U))))) into (* 1/2 (/ U (* (cos (/ 1/2 K)) J)))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ -1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ -1/2 K))) (* 1 (* (/ 1 (- J)) (/ 1 (/ 1 (- U)))))) into (* 1/2 (/ U (* (cos (/ -1/2 K)) J)))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (* 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* (- (* 2 (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K)))))) into (- U)
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (/ (cos (* 1/2 K)) U)
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 (/ (cos (* 1/2 K)) U)) (+ (* (- (* 2 (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) 1) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* -2 (cos (/ 1/2 K))) 0) (* 0 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* -2 (cos (/ 1/2 K))) (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 1))) into (- (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U)))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U)))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (/ 1/2 K)) (sqr U))) in K
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqr U)) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqr U)) into (* (cos (/ 1/2 K)) (sqr U))
* [misc]backup-simplify:  Simplify (/ 1 (* (cos (/ 1/2 K)) (sqr U))) into (/ 1 (* (cos (/ 1/2 K)) (sqr U)))
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U)))) into (/ 1/4 (* (cos (/ 1/2 K)) (sqr U)))
* [misc]backup-simplify:  Simplify (- (/ 1/4 (* (cos (/ 1/2 K)) (sqr U)))) into (- (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U)))))
* [misc]taylor:  Taking taylor expansion of (- (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (cos (/ 1/2 K)) (sqr U)))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (cos (/ 1/2 K)) (sqr U))) in U
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqr U)) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 1) (+ (* 0 0) (* 0 0))) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 1) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (/ 1/2 K)))) (+ (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* (cos (/ 1/2 K)) U)) 0) (* 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* -2 (cos (/ 1/2 K))) 0) (+ (* 0 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* U 0) (* 0 U)) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (sqr U))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (* (cos (/ 1/2 K)) (sqr U))) (/ 0 (* (cos (/ 1/2 K)) (sqr U)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (* (cos (/ 1/2 K)) (sqr U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 1) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (* 1 (* 1 (/ 1 (/ 1 J))))) into (* -2 (* (cos (/ 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) 1) into (* 2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (* 0 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 1))) into (* 1/4 (/ 1 (* (sqr U) (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ 1 (* (sqr U) (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ 1 (* (sqr U) (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (sqr U) (cos (/ -1/2 K))) into (* (sqr U) (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (* (sqr U) (cos (/ -1/2 K)))) into (/ 1 (* (sqr U) (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 (* (sqr U) (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1/4 (* (sqr U) (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of 1/4 in U
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (/ -1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (cos (/ -1/2 K))))) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/4 (cos (/ -1/2 K))) into (/ 1/4 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/4 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (cos (/ -1/2 K)))) (+ (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 0 (* -2 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* U (cos (/ -1/2 K)))) 0) (* 0 (/ 1/2 (* U (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K))))))))) (* 2 1)) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 (cos (/ -1/2 K))) 0) (+ (* 0 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* U 0) (* 0 U)) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr U) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 (* (sqr U) (cos (/ -1/2 K)))) (/ 0 (* (sqr U) (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (* (sqr U) (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/4 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (* 1 (* 1 (/ 1 (/ 1 (- J)))))) into (* -2 (* (cos (/ -1/2 K)) J))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 2 1 2)
* [misc]approximate:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/4 (sqr (cos (* 1/2 K)))) into (/ 1/4 (sqr (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1/4 (sqr (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (/ 1/4 1) into 1/4
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/4 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/4 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/4 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 1 (- 1/8)) (+ (* 0 0) (* (- 1/8) 1))) into -1/4
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/4 (/ -1/4 1)) (* 0 (/ 0 1)))) into 1/16
* [misc]backup-simplify:  Simplify 1/16 into 1/16
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 3) 6) (/ (pow 0 1) 1)) 0 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 5) 120)) 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 2) 2)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/4 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 0) (+ (* 0 (- 1/8)) (+ (* (- 1/8) 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* 1/4 (/ 0 1)) (* 0 (/ -1/4 1)) (* 1/16 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))) (* 0 (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K))))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1/16 (sqr (* K (* (/ 1 J) U)))) (* 1/4 (sqr (* 1 (* (/ 1 J) U))))) into (+ (* 1/4 (/ (sqr U) (sqr J))) (* 1/16 (/ (* (sqr U) (sqr K)) (sqr J))))
* [misc]approximate:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ (sqr J) (sqr (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (sqr (cos (/ 1/2 K)))) into (/ 1 (sqr (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 (sqr (cos (/ 1/2 K))))) into (/ 1/4 (sqr (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1/4 (sqr (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/4 (sqr (cos (/ 1/2 K)))) into (/ 1/4 (sqr (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1/4 (sqr (cos (/ 1/2 K)))) into (/ 1/4 (sqr (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ 1 (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (sqr (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ 1/4 (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ 1 (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))) (* 0 (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/4 (sqr (cos (/ 1/2 K)))) (sqr (* 1 (* (/ 1 J) (/ 1 (/ 1 U)))))) into (* 1/4 (/ (sqr U) (* (sqr (cos (/ 1/2 K))) (sqr J))))
* [misc]approximate:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (/ (sqr J) (sqr (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1 (sqr (cos (/ -1/2 K)))) into (/ 1 (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* 1/4 (/ 1 (sqr (cos (/ -1/2 K))))) into (/ 1/4 (sqr (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (/ 1/4 (sqr (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/4 (sqr (cos (/ -1/2 K)))) into (/ 1/4 (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1/4 (sqr (cos (/ -1/2 K)))) into (/ 1/4 (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ 1 (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (* 0 (/ 1 (sqr (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ 1/4 (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ 1 (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))) (* 0 (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/4 0) (+ (* 0 0) (* 0 (/ 1 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/4 (sqr (cos (/ -1/2 K)))) (sqr (* 1 (* (/ 1 (- J)) (/ 1 (/ 1 (- U))))))) into (* 1/4 (/ (sqr U) (* (sqr (cos (/ -1/2 K))) (sqr J))))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1)
* [misc]approximate:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* -2 (* 1 J)) into (* -2 J)
* [misc]approximate:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (* 1 (/ 1 (/ 1 J)))) into (* -2 (* (cos (/ 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ -1/2 K))) (* 1 (/ 1 (/ 1 (- J))))) into (* -2 (* (cos (/ -1/2 K)) J))
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 2 1 2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1)
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (21 enodes)
* * [misc]simplify:  iters left: 3 (25 enodes)
* * [misc]simplify:  iters left: 2 (29 enodes)
* * [misc]simplify:  iters left: 1 (35 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 2 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* 1/2 (/ U (* (cos (/ 1/2 K)) J)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* 1/2 (/ U (* (cos (/ 1/2 K)) J))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (56 enodes)
* * [misc]simplify:  iters left: 3 (107 enodes)
* * [misc]simplify:  iters left: 2 (229 enodes)
* * [misc]simplify:  iters left: 1 (355 enodes)
* [exit]simplify:  Simplified to (* (/ (* 1/2 U) (cos (/ 1/2 K))) (/ (cos (/ K 2)) (/ 1 -2)))
* * * * [misc]progress:  [ 3 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* 1/2 (/ U (* (cos (/ -1/2 K)) J)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* 1/2 (/ U (* (cos (/ -1/2 K)) J))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (95 enodes)
* * [misc]simplify:  iters left: 2 (180 enodes)
* * [misc]simplify:  iters left: 1 (352 enodes)
* [exit]simplify:  Simplified to (* (/ (* 1/2 U) (cos (/ -1/2 K))) (/ (cos (/ K 2)) (/ 1 -2)))
* * * * [misc]progress:  [ 4 / 74 ] simplifiying candidate #<alt-event (λ (J K U) 0)>
* [enter]simplify:  Simplifying 0
* * [misc]simplify:  iters left: 0 (1 enodes)
* [exit]simplify:  Simplified to 0
* * * * [misc]progress:  [ 5 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* -2 (* (cos (/ 1/2 K)) J)))>
* [enter]simplify:  Simplifying (* -2 (* (cos (/ 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  iters left: 4 (14 enodes)
* * [misc]simplify:  iters left: 3 (18 enodes)
* * [misc]simplify:  iters left: 2 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ 1/2 K)) (* -2 J))
* * * * [misc]progress:  [ 6 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* -2 (* (cos (/ -1/2 K)) J)))>
* [enter]simplify:  Simplifying (* -2 (* (cos (/ -1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  iters left: 4 (14 enodes)
* * [misc]simplify:  iters left: 3 (18 enodes)
* * [misc]simplify:  iters left: 2 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ -1/2 K)) (* -2 J))
* * * * [misc]progress:  [ 7 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (+ (* 1/4 (/ (sqr U) (sqr J))) (* 1/16 (/ (* (sqr U) (sqr K)) (sqr J))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (+ (* 1/4 (/ (sqr U) (sqr J))) (* 1/16 (/ (* (sqr U) (sqr K)) (sqr J)))))))
* * [misc]simplify:  iters left: 6 (24 enodes)
* * [misc]simplify:  iters left: 5 (45 enodes)
* * [misc]simplify:  iters left: 4 (87 enodes)
* * [misc]simplify:  iters left: 3 (177 enodes)
* * [misc]simplify:  iters left: 2 (308 enodes)
* * [misc]simplify:  iters left: 1 (485 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (+ (/ (* U (* U 1/16)) (sqr (/ J K))) (/ 1/4 (sqr (/ J U)))))) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 8 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1/4 (/ (sqr U) (* (sqr (cos (/ 1/2 K))) (sqr J))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1/4 (/ (sqr U) (* (sqr (cos (/ 1/2 K))) (sqr J)))))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (67 enodes)
* * [misc]simplify:  iters left: 3 (130 enodes)
* * [misc]simplify:  iters left: 2 (243 enodes)
* * [misc]simplify:  iters left: 1 (370 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ (* (/ 1/4 (cos (/ 1/2 K))) (/ (* (/ U J) (/ U J)) (cos (/ 1/2 K)))) 1)))
* * * * [misc]progress:  [ 9 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1/4 (/ (sqr U) (* (sqr (cos (/ -1/2 K))) (sqr J))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1/4 (/ (sqr U) (* (sqr (cos (/ -1/2 K))) (sqr J)))))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (67 enodes)
* * [misc]simplify:  iters left: 3 (130 enodes)
* * [misc]simplify:  iters left: 2 (243 enodes)
* * [misc]simplify:  iters left: 1 (370 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ (* (/ 1/4 (cos (/ -1/2 K))) (/ (* (/ U J) (/ U J)) (cos (/ -1/2 K)))) 1)))
* * * * [misc]progress:  [ 10 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* -2 J) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* -2 J) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (98 enodes)
* * [misc]simplify:  iters left: 2 (173 enodes)
* * [misc]simplify:  iters left: 1 (444 enodes)
* [exit]simplify:  Simplified to (* (* J -2) (sqrt (+ (sqr (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 11 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* -2 (* (cos (/ 1/2 K)) J)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* -2 (* (cos (/ 1/2 K)) J)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (62 enodes)
* * [misc]simplify:  iters left: 3 (113 enodes)
* * [misc]simplify:  iters left: 2 (207 enodes)
* * [misc]simplify:  iters left: 1 (497 enodes)
* [exit]simplify:  Simplified to (* (* (* -2 J) (cos (/ 1/2 K))) (sqrt (+ (sqr (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 12 / 74 ] simplifiying candidate #<alt-event (λ (J K U) (* (* -2 (* (cos (/ -1/2 K)) J)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* -2 (* (cos (/ -1/2 K)) J)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (62 enodes)
* * [misc]simplify:  iters left: 3 (113 enodes)
* * [misc]simplify:  iters left: 2 (207 enodes)
* * [misc]simplify:  iters left: 1 (497 enodes)
* [exit]simplify:  Simplified to (* (* (* -2 J) (cos (/ -1/2 K))) (sqrt (+ (sqr (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 13 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) 1/2)))>
* * * * [misc]progress:  [ 14 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1)))>
* * * * [misc]progress:  [ 15 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (exp (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 16 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (log (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 17 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 18 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (cbrt (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (171 enodes)
* * [misc]simplify:  iters left: 1 (461 enodes)
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 19 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (sqrt 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (85 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (442 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 20 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))) (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (29 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (312 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (66 enodes)
* * [misc]simplify:  iters left: 3 (130 enodes)
* * [misc]simplify:  iters left: 2 (268 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 21 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (116 enodes)
* * [misc]simplify:  iters left: 2 (275 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (84 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (448 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 22 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqr (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 23 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* * * * [misc]progress:  [ 24 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* 1 (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* * * * [misc]progress:  [ 25 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (102 enodes)
* * [misc]simplify:  iters left: 2 (193 enodes)
* * [misc]simplify:  iters left: 1 (458 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 26 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (102 enodes)
* * [misc]simplify:  iters left: 2 (193 enodes)
* * [misc]simplify:  iters left: 1 (458 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 27 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 1))>
* * * * [misc]progress:  [ 28 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (64 enodes)
* * [misc]simplify:  iters left: 3 (119 enodes)
* * [misc]simplify:  iters left: 2 (206 enodes)
* * [misc]simplify:  iters left: 1 (359 enodes)
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (+ (log (* J -2)) (log (cos (/ K 2)))))
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (+ (log (* J -2)) (log (cos (/ K 2)))))
* * * * [misc]progress:  [ 29 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (65 enodes)
* * [misc]simplify:  iters left: 3 (122 enodes)
* * [misc]simplify:  iters left: 2 (208 enodes)
* [exit]simplify:  Simplified to (+ (log (* (cos (/ K 2)) (* J -2))) (log (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (+ (log (* (cos (/ K 2)) (* J -2))) (log (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 30 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (123 enodes)
* * [misc]simplify:  iters left: 2 (224 enodes)
* [exit]simplify:  Simplified to (log (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (log (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 31 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (log (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (64 enodes)
* * [misc]simplify:  iters left: 3 (112 enodes)
* * [misc]simplify:  iters left: 2 (202 enodes)
* * [misc]simplify:  iters left: 1 (467 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 32 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (* (* (cube (* -2 J)) (cube (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (* (cube (* -2 J)) (cube (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (80 enodes)
* * [misc]simplify:  iters left: 3 (148 enodes)
* * [misc]simplify:  iters left: 2 (343 enodes)
* [exit]simplify:  Simplified to (* (* (* (cube (* J -2)) (cube (cos (/ K 2)))) (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (* (* (cube (* J -2)) (cube (cos (/ K 2)))) (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 33 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (* (cube (* (* -2 J) (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (cube (* (* -2 J) (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (159 enodes)
* * [misc]simplify:  iters left: 2 (304 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (+ (* (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (* (cos (/ K 2)) (* J -2)))) (cube (* (cos (/ K 2)) (* J -2)))))
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (+ (* (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (* (cos (/ K 2)) (* J -2)))) (cube (* (cos (/ K 2)) (* J -2)))))
* * * * [misc]progress:  [ 34 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (195 enodes)
* * [misc]simplify:  iters left: 1 (390 enodes)
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 35 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (cube (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (80 enodes)
* * [misc]simplify:  iters left: 3 (164 enodes)
* * [misc]simplify:  iters left: 2 (303 enodes)
* [exit]simplify:  Simplified to (cube (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cube (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 36 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (100 enodes)
* * [misc]simplify:  iters left: 2 (174 enodes)
* * [misc]simplify:  iters left: 1 (364 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 37 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (178 enodes)
* * [misc]simplify:  iters left: 1 (468 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (cbrt (* J -2)) (cbrt (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (cbrt (* J -2)) (cbrt (cos (/ K 2)))))
* * * * [misc]progress:  [ 38 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (sqr (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (195 enodes)
* * [misc]simplify:  iters left: 1 (390 enodes)
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 39 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (sqr (* (sqrt (* (* -2 J) (cos (/ K 2)))) (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (sqrt (* (* -2 J) (cos (/ K 2)))) (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (100 enodes)
* * [misc]simplify:  iters left: 2 (174 enodes)
* * [misc]simplify:  iters left: 1 (364 enodes)
* [exit]simplify:  Simplified to (* (sqrt (* (cos (/ K 2)) (* J -2))) (sqrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (sqrt (* (cos (/ K 2)) (* J -2))) (sqrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 40 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (sqr (* (* (sqrt (* -2 J)) (sqrt (cos (/ K 2)))) (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (* -2 J)) (sqrt (cos (/ K 2)))) (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (178 enodes)
* * [misc]simplify:  iters left: 1 (468 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (sqrt (* J -2)) (sqrt (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (sqrt (* J -2)) (sqrt (cos (/ K 2)))))
* * * * [misc]progress:  [ 41 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* * * * [misc]progress:  [ 42 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt 1)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt 1))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (17 enodes)
* * [misc]simplify:  iters left: 4 (24 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  iters left: 2 (56 enodes)
* * [misc]simplify:  iters left: 1 (63 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 43 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (21 enodes)
* * [misc]simplify:  iters left: 3 (25 enodes)
* * [misc]simplify:  iters left: 2 (29 enodes)
* * [misc]simplify:  iters left: 1 (35 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 44 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* -2 J) (* (cos (/ K 2)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (447 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 45 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))) (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (343 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 46 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (288 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (- 1 (* (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (- 1 (* (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 47 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) (* (* -2 J) (cos (/ K 2)))))>
* * * * [misc]progress:  [ 48 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>
* * * * [misc]progress:  [ 49 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 1)))))>
* * * * [misc]progress:  [ 50 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (log (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (log (sqr (/ U (* (* 2 J) (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (233 enodes)
* [exit]simplify:  Simplified to (* 2 (log (/ (/ U (+ J J)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* 2 (log (/ (/ U (+ J J)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 51 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (log (exp (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (exp (sqr (/ U (* (* 2 J) (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (41 enodes)
* * [misc]simplify:  iters left: 3 (82 enodes)
* * [misc]simplify:  iters left: 2 (154 enodes)
* * [misc]simplify:  iters left: 1 (411 enodes)
* [exit]simplify:  Simplified to (exp (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (exp (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 52 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (cube (cbrt (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqr (/ U (* (* 2 J) (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (39 enodes)
* * [misc]simplify:  iters left: 3 (80 enodes)
* * [misc]simplify:  iters left: 2 (152 enodes)
* * [misc]simplify:  iters left: 1 (441 enodes)
* [exit]simplify:  Simplified to (cbrt (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (cbrt (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 53 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (cbrt (cube (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (sqr (/ U (* (* 2 J) (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (51 enodes)
* * [misc]simplify:  iters left: 3 (132 enodes)
* * [misc]simplify:  iters left: 2 (335 enodes)
* [exit]simplify:  Simplified to (cube (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (cube (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 54 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (sqrt (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqr (/ U (* (* 2 J) (cos (/ K 2))))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (81 enodes)
* * [misc]simplify:  iters left: 2 (154 enodes)
* * [misc]simplify:  iters left: 1 (429 enodes)
* [exit]simplify:  Simplified to (fabs (/ (/ U (+ J J)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (fabs (/ (/ U (+ J J)) (cos (/ K 2))))
* * * * [misc]progress:  [ 55 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (sqr 1) (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* [enter]simplify:  Simplifying (sqr 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqr 1)
* [exit]simplify:  Simplified to (sqr 1)
* [enter]simplify:  Simplifying (sqr (/ U (* (* 2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (38 enodes)
* * [misc]simplify:  iters left: 3 (79 enodes)
* * [misc]simplify:  iters left: 2 (153 enodes)
* * [misc]simplify:  iters left: 1 (456 enodes)
* [exit]simplify:  Simplified to (sqr (/ (/ U (+ J J)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (sqr (/ (/ U (+ J J)) (cos (/ K 2))))
* * * * [misc]progress:  [ 56 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (sqr U) (sqr (/ 1 (* (* 2 J) (cos (/ K 2))))))))))>
* [enter]simplify:  Simplifying (sqr U)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqr U)
* [exit]simplify:  Simplified to (sqr U)
* [enter]simplify:  Simplifying (sqr (/ 1 (* (* 2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (72 enodes)
* * [misc]simplify:  iters left: 2 (116 enodes)
* * [misc]simplify:  iters left: 1 (201 enodes)
* [exit]simplify:  Simplified to (sqr (/ (/ 1 (+ J J)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (sqr (/ (/ 1 (+ J J)) (cos (/ K 2))))
* * * * [misc]progress:  [ 57 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (/ (sqr U) (sqr (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (sqr U)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqr U)
* [exit]simplify:  Simplified to (sqr U)
* [enter]simplify:  Simplifying (sqr (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (16 enodes)
* * [misc]simplify:  iters left: 4 (28 enodes)
* * [misc]simplify:  iters left: 3 (49 enodes)
* * [misc]simplify:  iters left: 2 (94 enodes)
* * [misc]simplify:  iters left: 1 (145 enodes)
* [exit]simplify:  Simplified to (* (* (+ J J) (cos (/ K 2))) (* (+ J J) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (* (+ J J) (cos (/ K 2))) (* (+ J J) (cos (/ K 2))))
* * * * [misc]progress:  [ 58 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * * [misc]progress:  [ 59 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))>
* * * * [misc]progress:  [ 60 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (pow (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* -2 J) (cos (/ K 2)))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (11 enodes)
* * [misc]simplify:  iters left: 3 (14 enodes)
* * [misc]simplify:  iters left: 2 (18 enodes)
* * [misc]simplify:  iters left: 1 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 61 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (pow (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * * [misc]progress:  [ 62 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (exp (+ (log (* -2 J)) (log (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (+ (log (* -2 J)) (log (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (22 enodes)
* * [misc]simplify:  iters left: 2 (25 enodes)
* [exit]simplify:  Simplified to (+ (log (* J -2)) (log (cos (/ K 2))))
* [exit]simplify:  Simplified to (+ (log (* J -2)) (log (cos (/ K 2))))
* * * * [misc]progress:  [ 63 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (exp (log (* (* -2 J) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (log (* (* -2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (23 enodes)
* * [misc]simplify:  iters left: 3 (34 enodes)
* * [misc]simplify:  iters left: 2 (42 enodes)
* * [misc]simplify:  iters left: 1 (43 enodes)
* [exit]simplify:  Simplified to (log (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (log (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 64 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (log (exp (* (* -2 J) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (exp (* (* -2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (14 enodes)
* * [misc]simplify:  iters left: 4 (21 enodes)
* * [misc]simplify:  iters left: 3 (25 enodes)
* * [misc]simplify:  iters left: 2 (27 enodes)
* [exit]simplify:  Simplified to (pow (exp (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (pow (exp (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 65 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (cbrt (* (cube (* -2 J)) (cube (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (cube (* -2 J)) (cube (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (31 enodes)
* * [misc]simplify:  iters left: 3 (52 enodes)
* * [misc]simplify:  iters left: 2 (93 enodes)
* * [misc]simplify:  iters left: 1 (218 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (cube (* J -2))) (sqr (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (cube (* J -2))) (sqr (cos (/ K 2))))
* * * * [misc]progress:  [ 66 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (cube (cbrt (* (* -2 J) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (cbrt (* (* -2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (15 enodes)
* * [misc]simplify:  iters left: 3 (19 enodes)
* * [misc]simplify:  iters left: 2 (21 enodes)
* [exit]simplify:  Simplified to (cbrt (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (cbrt (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 67 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (cbrt (cube (* (* -2 J) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (cube (* (* -2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (17 enodes)
* * [misc]simplify:  iters left: 4 (35 enodes)
* * [misc]simplify:  iters left: 3 (68 enodes)
* * [misc]simplify:  iters left: 2 (97 enodes)
* * [misc]simplify:  iters left: 1 (189 enodes)
* [exit]simplify:  Simplified to (cube (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (cube (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 68 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (cube (* (cbrt (* -2 J)) (cbrt (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (cbrt (* -2 J)) (cbrt (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* J -2)) (cbrt (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (cbrt (* J -2)) (cbrt (cos (/ K 2))))
* * * * [misc]progress:  [ 69 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (sqr (sqrt (* (* -2 J) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (* (* -2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (15 enodes)
* * [misc]simplify:  iters left: 3 (19 enodes)
* * [misc]simplify:  iters left: 2 (21 enodes)
* [exit]simplify:  Simplified to (sqrt (* (cos (/ K 2)) (* J -2)))
* [exit]simplify:  Simplified to (sqrt (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 70 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (sqr (* (sqrt (* -2 J)) (sqrt (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (sqrt (* -2 J)) (sqrt (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* [exit]simplify:  Simplified to (* (sqrt (* J -2)) (sqrt (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (* J -2)) (sqrt (cos (/ K 2))))
* * * * [misc]progress:  [ 71 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* 1 (* (* -2 J) (cos (/ K 2)))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * * [misc]progress:  [ 72 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) 1) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* (* -2 J) 1)
* * [misc]simplify:  iters left: 4 (5 enodes)
* * [misc]simplify:  iters left: 3 (7 enodes)
* * [misc]simplify:  iters left: 2 (11 enodes)
* * [misc]simplify:  iters left: 1 (12 enodes)
* [exit]simplify:  Simplified to (* -2 J)
* [exit]simplify:  Simplified to (* -2 J)
* * * * [misc]progress:  [ 73 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* -2 (* J (cos (/ K 2)))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* [enter]simplify:  Simplifying (* J (cos (/ K 2)))
* * [misc]simplify:  iters left: 5 (6 enodes)
* * [misc]simplify:  iters left: 4 (7 enodes)
* [exit]simplify:  Simplified to (* J (cos (/ K 2)))
* [exit]simplify:  Simplified to (* J (cos (/ K 2)))
* * * * [misc]progress:  [ 74 / 74 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cos (/ K 2)) (* -2 J)) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 2 / 3
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 1 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/8 in J
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/8 (sqr (cos (* 1/2 K)))) into (/ 1/8 (sqr (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ 1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 K))) (* 1 (* (/ 1 J) (/ 1 (/ 1 U))))) into (* 1/2 (/ U (* (cos (/ 1/2 K)) J)))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ -1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ -1/2 K))) (* 1 (* (/ 1 (- J)) (/ 1 (/ 1 (- U)))))) into (* 1/2 (/ U (* (cos (/ -1/2 K)) J)))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 2)
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1) 1)))) into (/ 1/24 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/24 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/24 in J
* [misc]backup-simplify:  Simplify 1/24 into 1/24
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/24 (sqr (cos (* 1/2 K)))) into (/ 1/24 (sqr (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/24 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/24 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))) into (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))) into (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (/ 1/2 K)) J)) 1)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (/ 1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (/ 1/2 K))) (sqr J)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (* 2/3 (/ (sqr (cos (/ 1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (/ 1/2 K))) (sqr J))) 1) 1)))) into (* 2/3 (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J)))
* [misc]taylor:  Taking taylor expansion of (* 2/3 (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J))) in J
* [misc]taylor:  Taking taylor expansion of 2/3 in J
* [misc]backup-simplify:  Simplify 2/3 into 2/3
* [misc]taylor:  Taking taylor expansion of (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J)) in J
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) 1) into (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2/3 0) (+ (* 0 0) (* 0 (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (/ -1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (/ -1/2 K))) (sqr J)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) into (* 2/3 (/ (sqr (cos (/ -1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (/ -1/2 K))) (sqr J))) 1) 1)))) into (* 2/3 (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J)))
* [misc]taylor:  Taking taylor expansion of (* 2/3 (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J))) in J
* [misc]taylor:  Taking taylor expansion of 2/3 in J
* [misc]backup-simplify:  Simplify 2/3 into 2/3
* [misc]taylor:  Taking taylor expansion of (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J)) in J
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) 1) into (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ -1/2 K))) 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2/3 0) (+ (* 0 0) (* 0 (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* -2 J) (cos (* 1/2 K))) into (* -2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -2 (* J (cos (* 1/2 K))))) into (log (* -2 (* J (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (* J (cos (* 1/2 K)))))) into (* 1/3 (log (* -2 (* J (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (* J (cos (* 1/2 K))))))) into (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (pow (* -2 (* J (cos (* 1/2 K)))) 1/3) 1) into (pow (* J (* -2 (cos (* 1/2 K)))) 1/3)
* [misc]backup-simplify:  Simplify (log (pow (* J (* -2 (cos (* 1/2 K)))) 1/3)) into (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3))
* [misc]backup-simplify:  Simplify (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3))) into (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)))) into (pow (pow (* -2 (* J (cos (* 1/2 K)))) 1/3) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (* -2 J) 1) into (* -2 J)
* [misc]backup-simplify:  Simplify (log (* -2 J)) into (log (* -2 J))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 J))) into (* 1/3 (log (* -2 J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 J)))) into (pow (* -2 J) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* -2 J) 1/3) (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)) into (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))
* [misc]backup-simplify:  Simplify (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))) into (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)))) into (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))))) into (pow (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ U 1) into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (- (log J))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 U)) (log J))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) into (exp (* 1/3 (- (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))) into (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 3) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log U)) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (- (log J))) into (- (+ (log U) (log 1/2)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log U) (log 1/2)) (log J))) into (* 1/3 (- (+ (log U) (log 1/2)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) into (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log -2) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log -2) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log -2) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log -2) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log -2) (log J)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) into (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))) into (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))))) into (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]backup-simplify:  Simplify (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 0) (* 0 (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* U (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 U)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 U) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 U)) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) 0) (* 0 (exp (* 1/3 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1/2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log U) (log 1/2)) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) 0) (* 0 (exp (* 1/3 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (/ (cos (* 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (* 1/2 K)) U)) 1)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U))) 1) 1)))) into (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (sqr (cos (* 1/2 K)))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (sqr (cos (* 1/2 K)))) (sqr U)))) (+ (* 0 0) (* 0 (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (* (sqr (cos (* 1/2 K))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (* (sqr (cos (* 1/2 K))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) (sqr U)))) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 1)))) 2) into (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 3 (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))))) into (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U))) 1) 1)))) into (* 2 (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U)) in K
* [misc]taylor:  Taking taylor expansion of (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) in K
* [misc]taylor:  Taking taylor expansion of (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ U 1) into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (- (log J))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 U)) (log J))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) into (exp (* 1/3 (- (log (* 1/2 U)) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 1/2 U)) (log J))))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 1/2 U)) (log J)))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 1/2 U)) (log J))) into (exp (- (log (* 1/2 U)) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3)) in K
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (+ (log -2) (log J))))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (+ (log -2) (log J)))) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (exp (+ (log -2) (log J))) into (exp (+ (log -2) (log J)))
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 (exp (+ (log -2) (log J)))) into (exp (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) into (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)) into (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))
* [misc]backup-simplify:  Simplify (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))) into (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)) in U
* [misc]taylor:  Taking taylor expansion of (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log U)) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (- (log J))) into (- (+ (log U) (log 1/2)) (log J))
* [misc]backup-simplify:  Simplify (exp (- (+ (log U) (log 1/2)) (log J))) into (exp (- (+ (log U) (log 1/2)) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (+ (log -2) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (+ (log -2) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log -2) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log -2) (log J)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (exp (+ (log -2) (log J))) into (exp (+ (log -2) (log J)))
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (exp (+ (log -2) (log J)))) into (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) 1) into (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow -2 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (+ (log -2) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1/2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (+ (log -2) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1/2 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow 1/2 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (- (+ (log U) (log 1/2)) (log J))) 0) (+ (* 0 0) (* 0 (exp (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (- (+ (log U) (log 1/2)) (log J))) 0) (* 0 (exp (+ (log -2) (log J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 2 (- 1/8)) (+ (* 0 0) (* 0 1))) into -1/4
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 1/4) 1)) (pow -2 1)))) 2) into -1/8
* [misc]backup-simplify:  Simplify (+ 0 -1/8) into -1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J))))) into (- 1/24)
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (- 1/24) 1) 1)))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* U (/ (- 1/8) 1)) (* 0 (/ 0 1)))) into (* 1/8 U)
* [misc]backup-simplify:  Simplify (+ (* 1/2 (* 1/8 U)) (+ (* 0 0) (* 0 U))) into (* 1/16 U)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 U) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/16 U)) 1)) (pow (* 1/2 U) 1)))) 2) into 1/8
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 1/8 0) into 1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 1/8) (+ (* 0 0) (* 0 (- (log (* 1/2 U)) (log J))))) into 1/24
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 1/24 1) 1)))) into (* 1/24 (exp (* 1/3 (- (log (* 1/2 U)) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))) (+ (* 0 0) (* (* 1/24 (exp (* 1/3 (- (log (* 1/2 U)) (log J))))) (exp (* 1/3 (+ (log -2) (log J))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (+ (* 0 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]approximate:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (* (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into (pow (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))) into (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))) into (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3) (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)) into (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))) into (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)))) into (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))))) into (pow (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1) 1)))) into (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 1))) into (* 1/24 (/ (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/24 (/ (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1)))) 2) into (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 3 (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))))) into (* 1/8 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/8 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1) 1)))) into (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) in K
* [misc]taylor:  Taking taylor expansion of 1/8 in K
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) in K
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (sqr U)) in K
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) (sqr U)) into (* (sqr (cos (/ 1/2 K))) (sqr U))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) into (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) in U
* [misc]taylor:  Taking taylor expansion of 1/8 in U
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (sqr U)) in U
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 1) (+ (* 0 0) (* 0 0))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) into (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 0) (+ (* 0 1) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 1) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))) (* 0 (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (+ (* 0 0) (* 0 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]approximate:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (* (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))) into (log (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))))) into (pow (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3) (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)) into (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))) into (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)))) into (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))))) into (pow (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)) 3)
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (cube (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Rewrote expression to (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1)))) into (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 1))) into (* 1/24 (/ (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/24 (/ (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (* (sqr U) (sqr (cos (/ -1/2 K))))))) 1)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1)))) 2) into (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 3 (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))))) into (* 1/8 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/8 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1)))) into (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of 1/8 in K
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (sqr (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr U) (sqr (cos (/ -1/2 K)))) into (* (sqr U) (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) into (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) in U
* [misc]taylor:  Taking taylor expansion of 1/8 in U
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (sqr (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (/ -1/2 K)))))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) into (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))) (* 0 (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (+ (* 0 0) (* 0 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 1)
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (* -2 J) 1) into (* -2 J)
* [misc]backup-simplify:  Simplify (log (* -2 J)) into (log (* -2 J))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 J))) into (* 1/3 (log (* -2 J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 J)))) into (pow (* -2 J) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 2 (- 1/8)) (+ (* 0 0) (* 0 1))) into -1/4
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 1/4) 1)) (pow -2 1)))) 2) into -1/8
* [misc]backup-simplify:  Simplify (+ 0 -1/8) into -1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J))))) into (- 1/24)
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (- 1/24) 1) 1)))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (* -1/24 (exp (* 1/3 (+ (log -2) (log J))))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (- (* 2 (cos (* 1/2 K)))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow J 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow J 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow J 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 (- 1/8)) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow -2 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 1/4) 1)) (pow -2 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow -2 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow (- 1/24) 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 3) 6) (/ (pow 0 1) 1)) 0 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 5) 120)) 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 2) 2)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -6 (/ (* (pow (* 1 0) 4)) (pow (- (* 2 (cos (* 1/2 K)))) 4))) (* 12 (/ (* (pow (* 1 0) 2) (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 3))) (* -3 (/ (* 1 (pow (* 2 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* -4 (/ (* (pow (* 1 0) 1) 1 (pow (* 6 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 1 1 (pow (* 24 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 24) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 4) 24)) (* (/ (pow 0 2) 2) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (* -1/24 (exp (* 1/3 (+ (log -2) (log J))))) (sqr (* K 1))) (exp (* 1/3 (+ (log -2) (log J))))) into (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K))))
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (* -2 (cos (/ 1/2 K))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (* 2 (cos (/ -1/2 K))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 1 2 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 1)
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt 1))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt 1)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (35 enodes)
* * [misc]simplify:  iters left: 3 (43 enodes)
* * [misc]simplify:  iters left: 2 (65 enodes)
* * [misc]simplify:  iters left: 1 (70 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 2 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ 1/2 K)) J)))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ 1/2 K)) J))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (98 enodes)
* * [misc]simplify:  iters left: 2 (218 enodes)
* [exit]simplify:  Simplified to (/ (* (* J -2) (cos (/ K 2))) (/ (cos (/ 1/2 K)) (/ (* U 1/2) J)))
* * * * [misc]progress:  [ 3 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ -1/2 K)) J)))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ -1/2 K)) J))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (99 enodes)
* * [misc]simplify:  iters left: 2 (274 enodes)
* [exit]simplify:  Simplified to (/ (* (* (* U 1/2) (* J -2)) (cos (/ K 2))) (* (cos (/ -1/2 K)) J))
* * * * [misc]progress:  [ 4 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) 1)))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) 1))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (29 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 5 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))))
* * [misc]simplify:  iters left: 6 (24 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (66 enodes)
* * [misc]simplify:  iters left: 3 (95 enodes)
* * [misc]simplify:  iters left: 2 (139 enodes)
* * [misc]simplify:  iters left: 1 (259 enodes)
* [exit]simplify:  Simplified to (* (/ (* 1/2 (/ J U)) (cos (/ 1/2 K))) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 6 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))))
* * [misc]simplify:  iters left: 6 (25 enodes)
* * [misc]simplify:  iters left: 5 (43 enodes)
* * [misc]simplify:  iters left: 4 (67 enodes)
* * [misc]simplify:  iters left: 3 (96 enodes)
* * [misc]simplify:  iters left: 2 (140 enodes)
* * [misc]simplify:  iters left: 1 (261 enodes)
* [exit]simplify:  Simplified to (* (/ (/ (* 1/2 J) U) (cos (/ -1/2 K))) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 7 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3))>
* [enter]simplify:  Simplifying (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (63 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (217 enodes)
* [exit]simplify:  Simplified to (cube (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J)))))
* * * * [misc]progress:  [ 8 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))))>
* [enter]simplify:  Simplifying (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (24 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  iters left: 2 (40 enodes)
* * [misc]simplify:  iters left: 1 (47 enodes)
* [exit]simplify:  Simplified to (* (/ (cos (/ 1/2 K)) J) -2)
* * * * [misc]progress:  [ 9 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))))>
* [enter]simplify:  Simplifying (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (25 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  iters left: 2 (42 enodes)
* * [misc]simplify:  iters left: 1 (53 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ -1/2 K)) (/ J 2))
* * * * [misc]progress:  [ 10 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (* (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (28 enodes)
* * [misc]simplify:  iters left: 5 (59 enodes)
* * [misc]simplify:  iters left: 4 (100 enodes)
* * [misc]simplify:  iters left: 3 (163 enodes)
* * [misc]simplify:  iters left: 2 (299 enodes)
* [exit]simplify:  Simplified to (* (cube (- (cbrt (* J -2)) (* (* (* 1/24 K) K) (cbrt (* J -2))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 11 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (27 enodes)
* * [misc]simplify:  iters left: 5 (51 enodes)
* * [misc]simplify:  iters left: 4 (84 enodes)
* * [misc]simplify:  iters left: 3 (145 enodes)
* * [misc]simplify:  iters left: 2 (262 enodes)
* * [misc]simplify:  iters left: 1 (471 enodes)
* [exit]simplify:  Simplified to (* (exp (* (+ (- (log -2) (log J)) (log (cos (/ 1/2 K)))) (+ 1/3 (+ 1/3 1/3)))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 12 / 57 ] simplifiying candidate #<alt-event (λ (J K U) (cube (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (26 enodes)
* * [misc]simplify:  iters left: 5 (51 enodes)
* * [misc]simplify:  iters left: 4 (84 enodes)
* * [misc]simplify:  iters left: 3 (145 enodes)
* * [misc]simplify:  iters left: 2 (263 enodes)
* * [misc]simplify:  iters left: 1 (475 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (exp (* (- (log (cos (/ -1/2 K))) (- (log J) (log 2))) (+ (+ 1/3 1/3) 1/3))))
* * * * [misc]progress:  [ 13 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (pow (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) 1/2)))))>
* * * * [misc]progress:  [ 14 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1)))))>
* * * * [misc]progress:  [ 15 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (exp (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 16 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (log (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 17 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 18 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cbrt (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (171 enodes)
* * [misc]simplify:  iters left: 1 (461 enodes)
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 19 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* (sqrt 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (85 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (442 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 20 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (/ (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))) (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (29 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (312 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (66 enodes)
* * [misc]simplify:  iters left: 3 (130 enodes)
* * [misc]simplify:  iters left: 2 (268 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 21 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (/ (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (116 enodes)
* * [misc]simplify:  iters left: 2 (275 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (84 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (448 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 22 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqr (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 23 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (fabs (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* * * * [misc]progress:  [ 24 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1 (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* * * * [misc]progress:  [ 25 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3))))>
* * * * [misc]progress:  [ 26 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (pow (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 1))))>
* * * * [misc]progress:  [ 27 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (log (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (log (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 28 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (log (exp (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (exp (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (exp (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (exp (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 29 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* (cbrt (sqrt 1)) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt 1))
* [exit]simplify:  Simplified to (cbrt (sqrt 1))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 30 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* (cbrt 1) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (cbrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (cbrt 1)
* [exit]simplify:  Simplified to (cbrt 1)
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 31 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (/ (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))) (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (132 enodes)
* * [misc]simplify:  iters left: 2 (299 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (67 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (293 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 32 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (/ (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (111 enodes)
* * [misc]simplify:  iters left: 2 (255 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (85 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (445 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 33 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cube (cbrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cbrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (cbrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 34 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (50 enodes)
* * [misc]simplify:  iters left: 3 (91 enodes)
* * [misc]simplify:  iters left: 2 (163 enodes)
* * [misc]simplify:  iters left: 1 (449 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 35 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (sqr (sqrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 36 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* 1 (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* * * * [misc]progress:  [ 37 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* * * * [misc]progress:  [ 38 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 1))>
* * * * [misc]progress:  [ 39 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (log (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (log (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (76 enodes)
* * [misc]simplify:  iters left: 3 (151 enodes)
* * [misc]simplify:  iters left: 2 (294 enodes)
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 40 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (log (exp (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (exp (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (74 enodes)
* * [misc]simplify:  iters left: 3 (137 enodes)
* * [misc]simplify:  iters left: 2 (246 enodes)
* * [misc]simplify:  iters left: 1 (469 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 41 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (cbrt (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cbrt (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (231 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 42 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (cube (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cube (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (160 enodes)
* * [misc]simplify:  iters left: 2 (321 enodes)
* [exit]simplify:  Simplified to (cube (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cube (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 43 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (* (cube (cbrt (* (* -2 J) (cos (/ K 2))))) (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* * [misc]simplify:  iters left: 1 (23 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [enter]simplify:  Simplifying (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (50 enodes)
* * [misc]simplify:  iters left: 3 (91 enodes)
* * [misc]simplify:  iters left: 2 (163 enodes)
* * [misc]simplify:  iters left: 1 (449 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 44 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))))) (cube (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (83 enodes)
* * [misc]simplify:  iters left: 3 (169 enodes)
* * [misc]simplify:  iters left: 2 (383 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))) 1)) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (+ (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))) 1)) (* (* J -2) (cos (/ K 2))))
* [enter]simplify:  Simplifying (cube (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (269 enodes)
* [exit]simplify:  Simplified to (sqrt (- (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (- (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 45 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) (cube (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (45 enodes)
* * [misc]simplify:  iters left: 4 (82 enodes)
* * [misc]simplify:  iters left: 3 (148 enodes)
* * [misc]simplify:  iters left: 2 (306 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (cube (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (162 enodes)
* * [misc]simplify:  iters left: 1 (452 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 46 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (* (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (66 enodes)
* * [misc]simplify:  iters left: 3 (113 enodes)
* * [misc]simplify:  iters left: 2 (193 enodes)
* * [misc]simplify:  iters left: 1 (341 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))) (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))) (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))))
* * * * [misc]progress:  [ 47 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (sqr (sqrt (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))))>
* [enter]simplify:  Simplifying (sqrt (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (124 enodes)
* * [misc]simplify:  iters left: 2 (228 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 48 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (* 1 (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))))>
* * * * [misc]progress:  [ 49 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (pow (* (* -2 J) (cos (/ K 2))) 1/3) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* * * * [misc]progress:  [ 50 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (pow (cbrt (* (* -2 J) (cos (/ K 2)))) 1) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* * * * [misc]progress:  [ 51 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (exp (log (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (log (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (log (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (log (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 52 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (log (exp (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (exp (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (exp (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (exp (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 53 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cbrt (* -2 J))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  iters left: 2 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [enter]simplify:  Simplifying (cbrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* * * * [misc]progress:  [ 54 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cube (cbrt (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cbrt (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (cbrt (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cbrt (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 55 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (cube (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (cube (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* * [misc]simplify:  iters left: 1 (23 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 56 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (sqr (sqrt (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* [enter]simplify:  Simplifying (sqrt (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (sqrt (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 57 / 57 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (* 1 (cbrt (* (* -2 J) (cos (/ K 2))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 3 / 3
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 1 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/8 in J
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/8 (sqr (cos (* 1/2 K)))) into (/ 1/8 (sqr (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (* J (cos (* 1/2 K))))) (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 0 (* 2 (* J (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 1/2 (* J (cos (* 1/2 K)))) 0) (* 0 (/ 1/2 (* J (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K))))))))) (* 2 1)) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/8 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ 1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ 1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ 1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ 1/2 K))) (* 1 (* (/ 1 J) (/ 1 (/ 1 U))))) into (* 1/2 (/ U (* (cos (/ 1/2 K)) J)))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]taylor:  Taking taylor expansion of (/ (cos (/ -1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (cos (/ -1/2 K)) (/ 0 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (/ -1 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (- 0 (+ (* 2 (* 0 (/ (cos (/ -1/2 K)) J))))) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (cos (/ -1/2 K))) (* 1 (* (/ 1 (- J)) (/ 1 (/ 1 (- U)))))) into (* 1/2 (/ U (* (cos (/ -1/2 K)) J)))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 2)
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1) 1)))) into (/ 1/24 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]taylor:  Taking taylor expansion of (/ 1/24 (* (sqr J) (sqr (cos (* 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of 1/24 in J
* [misc]backup-simplify:  Simplify 1/24 into 1/24
* [misc]taylor:  Taking taylor expansion of (* (sqr J) (sqr (cos (* 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) (cos (* 1/2 K))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 K)) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (* 1/2 K)))))) into (sqr (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ 1/24 (sqr (cos (* 1/2 K)))) into (/ 1/24 (sqr (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (* 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 K))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/24 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (* 1/2 K)))) (+ (* (/ 1/24 (sqr (cos (* 1/2 K)))) (/ 0 (sqr (cos (* 1/2 K))))) (* 0 (/ 0 (sqr (cos (* 1/2 K))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))) into (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))) into (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)) (* 0 (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ 1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))) (* 0 (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ 1/2 K)))))) into (/ (cos (/ 1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (/ 1/2 K)) J)) 1)) (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (/ 1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (/ 1/2 K))) (sqr J)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (* 2/3 (/ (sqr (cos (/ 1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (/ 1/2 K))) (sqr J))) 1) 1)))) into (* 2/3 (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J)))
* [misc]taylor:  Taking taylor expansion of (* 2/3 (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J))) in J
* [misc]taylor:  Taking taylor expansion of 2/3 in J
* [misc]backup-simplify:  Simplify 2/3 into 2/3
* [misc]taylor:  Taking taylor expansion of (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) (sqr J)) in J
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) 1) into (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2/3 0) (+ (* 0 0) (* 0 (* (sqr (cos (/ 1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ 1/2 K))) (+ (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K)))) (* 0 (/ 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]approximate:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ -1/2 K))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1/2 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))) (* 0 (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (/ -1 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))) (* 0 (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ J (cos (/ -1/2 K)))))) into (/ (cos (/ -1/2 K)) J)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1)) (pow (* 1/2 (/ J (cos (/ -1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (/ -1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (/ -1/2 K))) (sqr J)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) into (* 2/3 (/ (sqr (cos (/ -1/2 K))) (sqr J)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (/ -1/2 K))) (sqr J))) 1) 1)))) into (* 2/3 (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J)))
* [misc]taylor:  Taking taylor expansion of (* 2/3 (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J))) in J
* [misc]taylor:  Taking taylor expansion of 2/3 in J
* [misc]backup-simplify:  Simplify 2/3 into 2/3
* [misc]taylor:  Taking taylor expansion of (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) (sqr J)) in J
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ -1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ -1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ -1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ -1/2 K))) into (/ 1 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ -1/2 K)))) into (/ 1/2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ -1/2 K)))) into (log (/ 1/2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (/ 1/2 (cos (/ -1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (- (log U)) into (- (log U))
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (- (log U))) into (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (sqr J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) 1) into (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 (/ 1 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow U 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ -1/2 K))) 0) (+ (* 0 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ -1/2 K))) 0) (* 0 (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2/3 0) (+ (* 0 0) (* 0 (* (sqr (cos (/ -1/2 K))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (cos (/ -1/2 K))) (+ (* (/ 1 (cos (/ -1/2 K))) (/ 0 (cos (/ -1/2 K)))) (* 0 (/ 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (* 0 (/ 1 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (/ 1/2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (/ 1/2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow U 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow U 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* -2 J) (cos (* 1/2 K))) into (* -2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -2 (* J (cos (* 1/2 K))))) into (log (* -2 (* J (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (* J (cos (* 1/2 K)))))) into (* 1/3 (log (* -2 (* J (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (* J (cos (* 1/2 K))))))) into (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* J (cos (* 1/2 K))))) into (/ 1/2 (* J (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* J (cos (* 1/2 K)))) (/ 1/2 (* J (cos (* 1/2 K))))) into (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr J) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr J) (sqr (cos (* 1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr J) (sqr (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (pow (* -2 (* J (cos (* 1/2 K)))) 1/3) 1) into (pow (* J (* -2 (cos (* 1/2 K)))) 1/3)
* [misc]backup-simplify:  Simplify (log (pow (* J (* -2 (cos (* 1/2 K)))) 1/3)) into (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3))
* [misc]backup-simplify:  Simplify (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3))) into (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (pow (* -2 (* J (cos (* 1/2 K)))) 1/3)))) into (pow (pow (* -2 (* J (cos (* 1/2 K)))) 1/3) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (* -2 J) 1) into (* -2 J)
* [misc]backup-simplify:  Simplify (log (* -2 J)) into (log (* -2 J))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 J))) into (* 1/3 (log (* -2 J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 J)))) into (pow (* -2 J) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* (* 2 J) 1) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U J)) (* 1/2 (/ U J))) into (* 1/4 (/ (sqr U) (sqr J)))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr U) (sqr J)))) into (+ (* 1/4 (/ (sqr U) (sqr J))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) into (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 J)) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 2 J) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 J)) (+ (* (* 1/2 (/ U J)) (/ 0 (* 2 J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U J)) 0) (* 0 (* 1/2 (/ U J)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* -2 J) 1/3) (pow (sqrt (+ (* 1/4 (/ (sqr U) (sqr J))) 1)) 1/3)) into (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))
* [misc]backup-simplify:  Simplify (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))) into (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)))) into (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3))))) into (pow (* (pow (+ (* 1/4 (/ (sqr U) (sqr J))) 1) 1/6) (pow (* J -2) 1/3)) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 1) (* 0 0)) into 2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 2 (cos (* 1/2 K)))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ U (cos (* 1/2 K)))) (* 1/2 (/ U (cos (* 1/2 K))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr U) (sqr (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ U 1) into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (- (log J))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 U)) (log J))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) into (exp (* 1/3 (- (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) into (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))) into (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) into (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 3) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log U)) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (- (log J))) into (- (+ (log U) (log 1/2)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (+ (log U) (log 1/2)) (log J))) into (* 1/3 (- (+ (log U) (log 1/2)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) into (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log -2) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log -2) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log -2) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log -2) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log -2) (log J)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) into (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))) into (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))))) into (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]backup-simplify:  Simplify (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 0) (* 0 (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* U (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (* 0 U)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 1/2 U) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 1/2 U)) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) 0) (* 0 (exp (* 1/3 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1/2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (+ (log U) (log 1/2)) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))) 0) (* 0 (exp (* 1/3 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (cos (* 1/2 K)))) (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K))))) (* 0 (/ 0 (* 2 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ U (cos (* 1/2 K)))) 0) (+ (* 0 0) (* 0 (* 1/2 (/ U (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (/ (- 1 (sqr 0) (+)) (* 2 (* 1/2 (/ U (cos (* 1/2 K)))))) into (/ (cos (* 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 (/ (cos (* 1/2 K)) U)) 1)) (pow (* 1/2 (/ U (cos (* 1/2 K)))) 1)))) 2) into (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U))) 1) 1)))) into (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (sqr (cos (* 1/2 K)))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (sqr (cos (* 1/2 K)))) (sqr U)))) (+ (* 0 0) (* 0 (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (* (sqr (cos (* 1/2 K))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 2/3 (/ (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (* (sqr (cos (* 1/2 K))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) (sqr U)))) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) 1)))) 2) into (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 3 (* 2/3 (/ (sqr (cos (* 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))))) into (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 2 (/ (sqr (cos (* 1/2 K))) (sqr U))) 1) 1)))) into (* 2 (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) (sqr U)) in K
* [misc]taylor:  Taking taylor expansion of (* (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3))) in K
* [misc]taylor:  Taking taylor expansion of (pow (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (/ U 1) into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (- (log J))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 U)) (log J))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) into (exp (* 1/3 (- (log (* 1/2 U)) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 1/2 U)) (log J))))) into (* 1/3 (- (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 1/2 U)) (log J)))) into (- (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 1/2 U)) (log J))) into (exp (- (log (* 1/2 U)) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (* 1/2 K))) (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3)) in K
* [misc]taylor:  Taking taylor expansion of (sqr (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]taylor:  Taking taylor expansion of (pow (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (+ (log -2) (log J))))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (+ (log -2) (log J)))) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (exp (+ (log -2) (log J))) into (exp (+ (log -2) (log J)))
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1 1) into 1
* [misc]backup-simplify:  Simplify (* 1 (exp (+ (log -2) (log J)))) into (exp (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) into (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)) into (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))
* [misc]backup-simplify:  Simplify (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))) into (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)))
* [misc]taylor:  Taking taylor expansion of (* 2 (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) (sqr U)) in U
* [misc]taylor:  Taking taylor expansion of (* (exp (- (log (* 1/2 U)) (log J))) (exp (+ (log -2) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log U)) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (- (log J))) into (- (+ (log U) (log 1/2)) (log J))
* [misc]backup-simplify:  Simplify (exp (- (+ (log U) (log 1/2)) (log J))) into (exp (- (+ (log U) (log 1/2)) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (+ (log -2) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (+ (log -2) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log -2) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log -2) (log J)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (exp (+ (log -2) (log J))) into (exp (+ (log -2) (log J)))
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (exp (+ (log -2) (log J)))) into (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (/ (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) 1) into (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow -2 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (+ (log -2) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1/2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (+ (log -2) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1/2 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow 1/2 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (+ (log U) (log 1/2)) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (- (+ (log U) (log 1/2)) (log J))) 0) (+ (* 0 0) (* 0 (exp (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (- (+ (log U) (log 1/2)) (log J))) 0) (* 0 (exp (+ (log -2) (log J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J)))) (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (* (exp (+ (log -2) (log J))) (exp (- (+ (log U) (log 1/2)) (log J))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 2 (- 1/8)) (+ (* 0 0) (* 0 1))) into -1/4
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 1/4) 1)) (pow -2 1)))) 2) into -1/8
* [misc]backup-simplify:  Simplify (+ 0 -1/8) into -1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J))))) into (- 1/24)
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (- 1/24) 1) 1)))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (- (/ 0 1) (+ (* U (/ (- 1/8) 1)) (* 0 (/ 0 1)))) into (* 1/8 U)
* [misc]backup-simplify:  Simplify (+ (* 1/2 (* 1/8 U)) (+ (* 0 0) (* 0 U))) into (* 1/16 U)
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 1/2 U) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/16 U)) 1)) (pow (* 1/2 U) 1)))) 2) into 1/8
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 1/8 0) into 1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 1/8) (+ (* 0 0) (* 0 (- (log (* 1/2 U)) (log J))))) into 1/24
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 1/24 1) 1)))) into (* 1/24 (exp (* 1/3 (- (log (* 1/2 U)) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))) (+ (* 0 0) (* (* 1/24 (exp (* 1/3 (- (log (* 1/2 U)) (log J))))) (exp (* 1/3 (+ (log -2) (log J))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (+ (* 0 0) (* 0 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 U)) (log J)))) (exp (* 1/3 (+ (log -2) (log J)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3) into (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* [misc]approximate:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ 1/2 K)))) (* 1/2 (/ J (cos (/ 1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ 1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (* (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into (pow (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) into (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) into (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 U) (/ 0 U)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 J) (/ 0 J)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ 1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ 2 J) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) 0) (* 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))) into (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))))) into (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))))))) into (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3) (pow (sqrt (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U)))))) 1/3)) into (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))) into (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)))) into (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6))))) into (pow (* (pow (/ (* (cos (/ 1/2 K)) -2) J) 1/3) (pow (+ 1 (* 1/4 (/ (sqr J) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1/6)) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 1/2 (* (cos (/ 1/2 K)) U))) into (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1) 1)))) into (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 1))) into (* 1/24 (/ (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/24 (/ (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (* (sqr (cos (/ 1/2 K))) (sqr U))))) 1)) (pow (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) 1)))) 2) into (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (+ (* 3 (/ 1/24 (* (sqr (cos (/ 1/2 K))) (sqr U)))) (+ (* 0 0) (* 0 (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))))) into (* 1/8 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/8 (/ 1 (* (sqr (cos (/ 1/2 K))) (sqr U)))) 1) 1)))) into (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) in K
* [misc]taylor:  Taking taylor expansion of 1/8 in K
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) in K
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (sqr U)) in K
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) (sqr U)) into (* (sqr (cos (/ 1/2 K))) (sqr U))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) into (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))
* [misc]backup-simplify:  Simplify (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) into (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U)))) in U
* [misc]taylor:  Taking taylor expansion of 1/8 in U
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (* (sqr (cos (/ 1/2 K))) (sqr U))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr (cos (/ 1/2 K))) (sqr U)) in U
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (cos (/ 1/2 K))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (sqr (cos (/ 1/2 K))) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 1) (+ (* 0 0) (* 0 0))) into (sqr (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) into (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ 1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 0) (+ (* 0 1) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sqr (cos (/ 1/2 K))) 0) (+ (* 0 1) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ 1/2 K)))) (+ (* (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K)))) (/ 0 (sqr (cos (/ 1/2 K))))) (* 0 (/ 0 (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (+ (* 0 0) (* 0 (/ (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (sqr (cos (/ 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]approximate:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in U
* [misc]taylor:  Taking taylor expansion of 3 in U
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in U
* [misc]taylor:  Taking taylor expansion of 1/3 in U
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (cos (/ -1/2 K)))) (* 1/2 (/ J (cos (/ -1/2 K))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))) into (* 1/2 (/ J (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (cos (/ -1/2 K)))) 0) (* 0 (* 1/2 (/ J (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (* 1/4 (/ (sqr J) (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ -1/2 K))))) into (log (* 1/2 (/ J (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log U)) (log (* 1/2 (/ J (cos (/ -1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))) into (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) into (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (* (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) into (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))
* [misc]backup-simplify:  Simplify (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))) into (log (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))))) into (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U)))) (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3))))) into (pow (* (pow (/ (* (cos (/ -1/2 K)) 2) J) 1/3) (exp (* 1/3 (- (log (* 1/2 (/ J (cos (/ -1/2 K))))) (log U))))) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 3 in K
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ -1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ -1/2 K))) into (* -2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* U (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (* 1/2 (/ J (* U (cos (/ -1/2 K)))))) into (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (+ 1 (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K))))))) into (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) into (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 U) (/ 0 (- U))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 J) (/ 0 (- J))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (/ -1 J))) into 0
* [misc]backup-simplify:  Simplify (+ (* (/ -2 J) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (* -2 (/ (cos (/ -1/2 K)) J))) (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) (/ 0 (* -2 (/ (cos (/ -1/2 K)) J)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (* 1/2 (/ J (* U (cos (/ -1/2 K))))) 0) (* 0 (* 1/2 (/ J (* U (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))) into (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)))) into (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1))))) into (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)
* [misc]backup-simplify:  Simplify (* (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3) (pow (sqrt (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) 1/3)) into (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))
* [misc]backup-simplify:  Simplify (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))) into (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)))
* [misc]backup-simplify:  Simplify (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)))) into (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))))
* [misc]backup-simplify:  Simplify (exp (* 3 (log (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6))))) into (pow (* (pow (/ (* 2 (cos (/ -1/2 K))) J) 1/3) (pow (+ (* 1/4 (/ (sqr J) (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1/6)) 3)
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (pow (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) 3) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 3 (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))))) in J
* [misc]taylor:  Taking taylor expansion of 3 in J
* [misc]backup-simplify:  Simplify 3 into 3
* [misc]taylor:  Taking taylor expansion of (log (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Rewrote expression to (pow (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (- U) into (- U)
* [misc]backup-simplify:  Simplify (/ 1 (- U)) into (/ -1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 -1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ -1/2 K))) into (* -2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ -1 U) (* -2 (cos (/ -1/2 K)))) into (/ 1/2 (* U (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 1 0) into 1
* [misc]backup-simplify:  Simplify (sqrt 1) into 1
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt 1))) into 0
* [misc]backup-simplify:  Simplify (log 1) into 0
* [misc]backup-simplify:  Simplify (* 1/3 0) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow 1 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1/2 (* U (cos (/ -1/2 K)))) (/ 1/2 (* U (cos (/ -1/2 K))))) into (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ 0 (/ 1/4 (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (- (* 1/4 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (sqr 0) (+)) (* 2 1)) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow 1 2))) (* 1 (/ (* 1 (pow (* 2 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1)) (pow 1 1)))) 2) into (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 (/ 1/8 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 0))) into (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (exp 0) into 1
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (log (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* 3 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* 3 0) (* 0 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (exp 0) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/24 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1)))) into (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 1))) into (* 1/24 (/ (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 2))) (* 1 (/ (* 1 (pow (* 2 (* 1/24 (/ (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (* (sqr U) (sqr (cos (/ -1/2 K))))))) 1)) (pow (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) 1)))) 2) into (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* 3 (/ 1/24 (* (sqr U) (sqr (cos (/ -1/2 K)))))) (+ (* 0 0) (* 0 (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))))) into (* 1/8 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (* 1/8 (/ 1 (* (sqr U) (sqr (cos (/ -1/2 K)))))) 1) 1)))) into (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of 1/8 in K
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (sqr (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (sqr U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* U U) into (sqr U)
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* (sqr U) (sqr (cos (/ -1/2 K)))) into (* (sqr U) (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) into (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))
* [misc]backup-simplify:  Simplify (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) into (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))))
* [misc]taylor:  Taking taylor expansion of (* 1/8 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K)))))) in U
* [misc]taylor:  Taking taylor expansion of 1/8 in U
* [misc]backup-simplify:  Simplify 1/8 into 1/8
* [misc]taylor:  Taking taylor expansion of (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (* (sqr U) (sqr (cos (/ -1/2 K))))) in U
* [misc]taylor:  Taking taylor expansion of (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]taylor:  Taking taylor expansion of (* (sqr U) (sqr (cos (/ -1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of (sqr U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (sqr (cos (/ -1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ -1/2 K) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 0 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) (cos (/ -1/2 K))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (* 0 (sqr (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 1) (* 1 0)) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* 0 (sqr (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 1) (* 0 0))) into 1
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (* 1 (sqr (cos (/ -1/2 K)))))) into (sqr (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) into (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 K) (+ (* (/ -1/2 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (+ (* 0 0) (* 0 (sqr (cos (/ -1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* 0 0) (+ (* 1 0) (* 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 (sqr (cos (/ -1/2 K)))) (+ (* (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K)))) (/ 0 (sqr (cos (/ -1/2 K))))) (* 0 (/ 0 (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/8 0) (+ (* 0 0) (* 0 (/ (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (sqr (cos (/ -1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (* (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 1)
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (* -2 J) into (* -2 J)
* [misc]backup-simplify:  Simplify (* (* -2 J) 1) into (* -2 J)
* [misc]backup-simplify:  Simplify (log (* -2 J)) into (log (* -2 J))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 J))) into (* 1/3 (log (* -2 J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 J)))) into (pow (* -2 J) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 J) (cos (/ K 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 0) into 0
* [misc]backup-simplify:  Simplify (* (cos (* 1/2 K)) 1) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (* 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (* 1/2 K)) 0) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 0 (cos (* 1/2 K))) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 1) (* 0 0)) into -2
* [misc]backup-simplify:  Simplify (+ (* 0 0) (* -2 (cos (* 1/2 K)))) into (- (* 2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (- (* 2 (cos (* 1/2 K))))) into (log (- (* 2 (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) into (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (- (* 2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (- (* 2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (* 1/2 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/2 1) (* 0 0)) into 1/2
* [misc]backup-simplify:  Simplify (* 2 1) into 2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (log -2) into (log -2)
* [misc]backup-simplify:  Simplify (+ (log J) (log -2)) into (+ (log -2) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (+ (log -2) (log J))) into (* 1/3 (+ (log -2) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (+ (log -2) (log J)))) into (exp (* 1/3 (+ (log -2) (log J))))
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (* 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow -2 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (+ (log -2) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 1/2 2) 2)) 0) into (- 1/8)
* [misc]backup-simplify:  Simplify (+ (* 2 (- 1/8)) (+ (* 0 0) (* 0 1))) into -1/4
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow -2 2))) (* 1 (/ (* 1 (pow (* 2 1/4) 1)) (pow -2 1)))) 2) into -1/8
* [misc]backup-simplify:  Simplify (+ 0 -1/8) into -1/8
* [misc]backup-simplify:  Simplify (+ (* 1/3 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J))))) into (- 1/24)
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow (- 1/24) 1) 1)))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (* -1/24 (exp (* 1/3 (+ (log -2) (log J))))) into (* -1/24 (exp (* 1/3 (+ (log -2) (log J)))))
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 4) 24)) 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 1) (* 0 0))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (- (* 2 (cos (* 1/2 K)))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow J 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow J 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow J 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- -1/4) into 1/4
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (+ (* 1/2 0) (+ (* 0 1) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 1/2 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 (- 1/8)) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 2) into -2
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow -2 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 1/4) 1)) (pow -2 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow -2 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 -1/8) (+ (* 0 0) (* 0 (+ (log -2) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log -2) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow (- 1/24) 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 3) 6) (/ (pow 0 1) 1)) 0 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (* 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 5) 120)) 0 (* -1 (/ (pow 0 2) 2) (/ (pow 0 1) 1)) (* -1 (/ (pow 0 1) 1) (/ (pow 0 2) 2)) 0 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (* 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 1) (* 0 0)))))) into 0
* [misc]backup-simplify:  Simplify (+ (* 0 0) (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (* 1/2 K)))))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -6 (/ (* (pow (* 1 0) 4)) (pow (- (* 2 (cos (* 1/2 K)))) 4))) (* 12 (/ (* (pow (* 1 0) 2) (pow (* 2 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 3))) (* -3 (/ (* 1 (pow (* 2 0) 2)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* -4 (/ (* (pow (* 1 0) 1) 1 (pow (* 6 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 2))) (* 1 (/ (* 1 1 1 (pow (* 24 0) 1)) (pow (- (* 2 (cos (* 1/2 K)))) 1)))) 24) into 0
* [misc]backup-simplify:  Simplify (+ (* (- -1) (log J)) (log (- (* 2 (cos (* 1/2 K)))))) into (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (+ (* 0 0) (* 0 (+ (log J) (log (- (* 2 (cos (* 1/2 K))))))))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (+ (log J) (log (- (* 2 (cos (* 1/2 K)))))))) (+ (* (/ (pow 0 4) 24)) (* (/ (pow 0 2) 2) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* (* -1/24 (exp (* 1/3 (+ (log -2) (log J))))) (sqr (* K 1))) (exp (* 1/3 (+ (log -2) (log J))))) into (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K))))
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ 1 2) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ 1 J)) into (/ -2 J)
* [misc]backup-simplify:  Simplify (* (/ -2 J) (cos (/ 1/2 K))) into (* -2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* -2 (/ (cos (/ 1/2 K)) J))) into (log (* -2 (/ (cos (/ 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J)))) into (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* -2 (/ (cos (/ 1/2 K)) J))))) into (pow (* -2 (/ (cos (/ 1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1 1) into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 1) into -2
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) 1) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ 1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ 1/2 K)) 0) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* -2 (cos (/ 1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* -2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ 1/2 1) into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (* -2 (cos (/ 1/2 K)))) into (log (* -2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* -2 (cos (/ 1/2 K)))) (- (log J))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))) into (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- (+ (* (/ 1 K) (/ 0 K)) (* 0 (/ 0 K)) (* 0 (/ 0 K)))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ 1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ 1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- (+ (* 1 (/ 0 1)) (* 0 (/ 0 1)) (* 0 (/ 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (* -2 (cos (/ 1/2 K))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (* -2 (cos (/ 1/2 K))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* -2 (cos (/ 1/2 K))))) into (- (log (* -2 (cos (/ 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J))))
* [misc]approximate:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (- J) into (- J)
* [misc]backup-simplify:  Simplify (/ 1 (- J)) into (/ -1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ -1 2) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (/ -1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (* 2 (/ (cos (/ -1/2 K)) J))) into (log (* 2 (/ (cos (/ -1/2 K)) J)))
* [misc]backup-simplify:  Simplify (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J)))) into (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (log (* 2 (/ (cos (/ -1/2 K)) J))))) into (pow (* 2 (/ (cos (/ -1/2 K)) J)) 1/3)
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (cbrt (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Rewrote expression to (pow (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) 1/3)
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/3 (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of 1/3 in J
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (log (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (/ 1 -1) into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (/ 1 (- K)) into (/ -1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ -1 K) 2) into (/ -1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ -1/2 K)) into (sin (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* -2 -1) into 2
* [misc]backup-simplify:  Simplify (* (cos (/ -1/2 K)) 1) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* (sin (/ -1/2 K)) 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ (cos (/ -1/2 K)) 0) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 1/3 in K
* [misc]backup-simplify:  Simplify 1/3 into 1/3
* [misc]taylor:  Taking taylor expansion of (- (log (* 2 (cos (/ -1/2 K)))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 2 (cos (/ -1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ -1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ -1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 K) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (/ -1/2 1) into -1/2
* [misc]backup-simplify:  Simplify (cos (/ -1/2 K)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ -1/2 K))) into (* 2 (cos (/ -1/2 K)))
* [misc]backup-simplify:  Simplify (log (* 2 (cos (/ -1/2 K)))) into (log (* 2 (cos (/ -1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (- (log J)) into (- (log J))
* [misc]backup-simplify:  Simplify (+ (log (* 2 (cos (/ -1/2 K)))) (- (log J))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))) into (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* [misc]backup-simplify:  Simplify (+ 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (* 0 1)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (* 0 0)) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (* 0 -1)) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (* 0 (cos (/ -1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 1 (/ (* (pow (* 1 0) 1)) (pow J 1)))) 1) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 2) 2)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (* 0 1))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (* 0 0))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (* 0 -1))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ (* (pow (* 1 0) 2)) (pow J 2))) (* 1 (/ (* 1 (pow (* 2 0) 1)) (pow J 1)))) 2) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 2) 2)) (* (/ (pow 0 1) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ 0 (* -1 (/ (pow 0 1) 1) (/ (pow 0 1) 1)) 0) into 0
* [misc]backup-simplify:  Simplify (+ (* (cos (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 1)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- K) into (- K)
* [misc]backup-simplify:  Simplify (- (+ (* (/ -1 K) (/ 0 (- K))) (* 0 (/ 0 (- K))) (* 0 (/ 0 (- K))))) into 0
* [misc]backup-simplify:  Simplify (- (/ 0 2) (+ (* (/ -1/2 K) (/ 0 2)) (* 0 (/ 0 2)) (* 0 (/ 0 2)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (/ (pow 0 3) 6)) 0 (* 1 (/ (pow 0 1) 1))) into 0
* [misc]backup-simplify:  Simplify (+ (* (sin (/ -1/2 K)) 0) (+ (* 0 0) (+ (* 0 0) (* 0 0)))) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (+ 0 0) into 0
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- 0) into 0
* [misc]backup-simplify:  Simplify (- 1) into -1
* [misc]backup-simplify:  Simplify (- (+ (* -1 (/ 0 -1)) (* 0 (/ 0 -1)) (* 0 (/ 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* -2 0) (+ (* 0 0) (+ (* 0 0) (* 0 -1)))) into 0
* [misc]backup-simplify:  Simplify (+ (* 2 0) (+ (* 0 0) (+ (* 0 0) (* 0 (cos (/ -1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* 2 (/ (* (pow (* 1 0) 3)) (pow (* 2 (cos (/ -1/2 K))) 3))) (* -3 (/ (* (pow (* 1 0) 1) (pow (* 2 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 2))) (* 1 (/ (* 1 1 (pow (* 6 0) 1)) (pow (* 2 (cos (/ -1/2 K))) 1)))) 6) into 0
* [misc]backup-simplify:  Simplify (+ (* (- 1) (log J)) (log (* 2 (cos (/ -1/2 K))))) into (- (log (* 2 (cos (/ -1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (* 1/3 0) (+ (* 0 0) (+ (* 0 0) (* 0 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))))) into 0
* [misc]backup-simplify:  Simplify (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (+ (* (/ (pow 0 3) 6)) (* (/ (pow 0 1) 1) (/ (pow 0 1) 1)) (* (/ (pow 0 1) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) into (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J))))
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 1 2 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 1)
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt 1)) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt 1)) 3)
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (30 enodes)
* * [misc]simplify:  iters left: 3 (46 enodes)
* * [misc]simplify:  iters left: 2 (57 enodes)
* * [misc]simplify:  iters left: 1 (62 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 2 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ 1/2 K)) J))))) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ 1/2 K)) J))))) 3)
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (52 enodes)
* * [misc]simplify:  iters left: 3 (78 enodes)
* * [misc]simplify:  iters left: 2 (118 enodes)
* * [misc]simplify:  iters left: 1 (172 enodes)
* [exit]simplify:  Simplified to (* (/ (/ 1/2 (/ J U)) (cos (/ 1/2 K))) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 3 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ -1/2 K)) J))))) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1/2 (/ U (* (cos (/ -1/2 K)) J))))) 3)
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (79 enodes)
* * [misc]simplify:  iters left: 2 (119 enodes)
* * [misc]simplify:  iters left: 1 (173 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (/ (/ U (/ J 1/2)) (cos (/ -1/2 K))))
* * * * [misc]progress:  [ 4 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) 1) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) 1) 3)
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (27 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  iters left: 2 (43 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 5 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) 3)
* * [misc]simplify:  iters left: 6 (25 enodes)
* * [misc]simplify:  iters left: 5 (39 enodes)
* * [misc]simplify:  iters left: 4 (61 enodes)
* * [misc]simplify:  iters left: 3 (89 enodes)
* * [misc]simplify:  iters left: 2 (125 enodes)
* * [misc]simplify:  iters left: 1 (205 enodes)
* [exit]simplify:  Simplified to (* (/ (/ (* J 1/2) U) (cos (/ 1/2 K))) (* (cos (/ K 2)) (* J -2)))
* * * * [misc]progress:  [ 6 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) 3))>
* [enter]simplify:  Simplifying (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (* 1/3 (- (+ (log J) (log (/ 1/2 (cos (/ -1/2 K))))) (log U))))) 3)
* * [misc]simplify:  iters left: 6 (26 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (62 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (126 enodes)
* * [misc]simplify:  iters left: 1 (212 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (/ (/ (* 1/2 J) U) (cos (/ -1/2 K))))
* * * * [misc]progress:  [ 7 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3))>
* [enter]simplify:  Simplifying (pow (* (exp (* 1/3 (+ (log -2) (log J)))) (exp (* 1/3 (- (+ (log U) (log 1/2)) (log J))))) 3)
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (63 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (217 enodes)
* [exit]simplify:  Simplified to (cube (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J)))))
* * * * [misc]progress:  [ 8 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J))))>
* [enter]simplify:  Simplifying (exp (- (log (* -2 (cos (/ 1/2 K)))) (log J)))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (24 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  iters left: 2 (40 enodes)
* * [misc]simplify:  iters left: 1 (47 enodes)
* [exit]simplify:  Simplified to (* (/ (cos (/ 1/2 K)) J) -2)
* * * * [misc]progress:  [ 9 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J))))>
* [enter]simplify:  Simplifying (exp (- (log (* 2 (cos (/ -1/2 K)))) (log J)))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (25 enodes)
* * [misc]simplify:  iters left: 3 (33 enodes)
* * [misc]simplify:  iters left: 2 (42 enodes)
* * [misc]simplify:  iters left: 1 (53 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ -1/2 K)) (/ J 2))
* * * * [misc]progress:  [ 10 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (pow (* (- (exp (* 1/3 (+ (log -2) (log J)))) (* 1/24 (* (exp (* 1/3 (+ (log -2) (log J)))) (sqr K)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* * [misc]simplify:  iters left: 6 (29 enodes)
* * [misc]simplify:  iters left: 5 (56 enodes)
* * [misc]simplify:  iters left: 4 (93 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (272 enodes)
* [exit]simplify:  Simplified to (* (cube (- (cbrt (* J -2)) (* (* (* 1/24 K) K) (cbrt (* J -2))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 11 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (pow (* (exp (* 1/3 (- (log (* -2 (cos (/ 1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* * [misc]simplify:  iters left: 6 (28 enodes)
* * [misc]simplify:  iters left: 5 (48 enodes)
* * [misc]simplify:  iters left: 4 (77 enodes)
* * [misc]simplify:  iters left: 3 (135 enodes)
* * [misc]simplify:  iters left: 2 (231 enodes)
* * [misc]simplify:  iters left: 1 (410 enodes)
* [exit]simplify:  Simplified to (* (exp (* (+ (- (log -2) (log J)) (log (cos (/ 1/2 K)))) (+ 1/3 (+ 1/3 1/3)))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 12 / 60 ] simplifiying candidate #<alt-event (λ (J K U) (pow (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (pow (* (exp (* 1/3 (- (log (* 2 (cos (/ -1/2 K)))) (log J)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)
* * [misc]simplify:  iters left: 6 (27 enodes)
* * [misc]simplify:  iters left: 5 (48 enodes)
* * [misc]simplify:  iters left: 4 (77 enodes)
* * [misc]simplify:  iters left: 3 (135 enodes)
* * [misc]simplify:  iters left: 2 (231 enodes)
* * [misc]simplify:  iters left: 1 (447 enodes)
* [exit]simplify:  Simplified to (* (exp (* (+ (- (log 2) (log J)) (log (cos (/ -1/2 K)))) (+ 1/3 (+ 1/3 1/3)))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 13 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (pow (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) 1/2))) 3))>
* * * * [misc]progress:  [ 14 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1))) 3))>
* * * * [misc]progress:  [ 15 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (exp (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (log (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 16 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (log (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (exp (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 17 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 18 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cbrt (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (49 enodes)
* * [misc]simplify:  iters left: 3 (90 enodes)
* * [misc]simplify:  iters left: 2 (171 enodes)
* * [misc]simplify:  iters left: 1 (461 enodes)
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))) (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 19 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* (sqrt 1) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (85 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (442 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 20 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (/ (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))) (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (29 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (312 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (66 enodes)
* * [misc]simplify:  iters left: 3 (130 enodes)
* * [misc]simplify:  iters left: 2 (268 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 21 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (/ (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (116 enodes)
* * [misc]simplify:  iters left: 2 (275 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (84 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (448 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 22 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqr (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 23 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (fabs (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* * * * [misc]progress:  [ 24 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (* 1 (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* * * * [misc]progress:  [ 25 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (pow (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))) 1/3)) 3))>
* * * * [misc]progress:  [ 26 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (pow (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 1)) 3))>
* * * * [misc]progress:  [ 27 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (exp (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (log (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (log (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 28 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (log (exp (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (exp (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (exp (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (exp (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 29 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* (cbrt (sqrt 1)) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt 1))
* [exit]simplify:  Simplified to (cbrt (sqrt 1))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 30 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* (cbrt 1) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (cbrt 1)
* [exit]simplify:  Simplified to (cbrt 1)
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (86 enodes)
* * [misc]simplify:  iters left: 2 (159 enodes)
* * [misc]simplify:  iters left: 1 (300 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 31 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (/ (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))) (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (132 enodes)
* * [misc]simplify:  iters left: 2 (299 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (67 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* * [misc]simplify:  iters left: 2 (293 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (- 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))) (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 32 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (/ (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (sqrt (- (sqr 1) (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (111 enodes)
* * [misc]simplify:  iters left: 2 (255 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (cbrt (sqrt (- 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (85 enodes)
* * [misc]simplify:  iters left: 2 (157 enodes)
* * [misc]simplify:  iters left: 1 (445 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (cbrt (sqrt (- 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 33 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cube (cbrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (cbrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (cbrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 34 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (cube (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (50 enodes)
* * [misc]simplify:  iters left: 3 (91 enodes)
* * [misc]simplify:  iters left: 2 (163 enodes)
* * [misc]simplify:  iters left: 1 (449 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 35 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (sqr (sqrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (87 enodes)
* * [misc]simplify:  iters left: 2 (160 enodes)
* * [misc]simplify:  iters left: 1 (311 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 36 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (* 1 (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3))>
* * * * [misc]progress:  [ 37 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (* (+ (log (cbrt (* (* -2 J) (cos (/ K 2))))) (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)))>
* [enter]simplify:  Simplifying (* (+ (log (cbrt (* (* -2 J) (cos (/ K 2))))) (log (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (113 enodes)
* * [misc]simplify:  iters left: 2 (187 enodes)
* * [misc]simplify:  iters left: 1 (480 enodes)
* [exit]simplify:  Simplified to (* (+ (log (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))) (log (cbrt (* (cos (/ K 2)) (* J -2))))) 3)
* [exit]simplify:  Simplified to (* (+ (log (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))) (log (cbrt (* (cos (/ K 2)) (* J -2))))) 3)
* * * * [misc]progress:  [ 38 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (* (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)))>
* [enter]simplify:  Simplifying (* (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (115 enodes)
* * [misc]simplify:  iters left: 2 (189 enodes)
* * [misc]simplify:  iters left: 1 (450 enodes)
* [exit]simplify:  Simplified to (* 3 (log (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))))
* [exit]simplify:  Simplified to (* 3 (log (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 39 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (* (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)))>
* [enter]simplify:  Simplifying (* (log (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))) 3)
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (40 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (115 enodes)
* * [misc]simplify:  iters left: 2 (189 enodes)
* * [misc]simplify:  iters left: 1 (450 enodes)
* [exit]simplify:  Simplified to (* 3 (log (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))))
* [exit]simplify:  Simplified to (* 3 (log (* (cbrt (* (cos (/ K 2)) (* J -2))) (cbrt (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 40 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) (* 1/3 3)))>
* [enter]simplify:  Simplifying (* 1/3 3)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* [exit]simplify:  Simplified to (* 3 1/3)
* [exit]simplify:  Simplified to (* 3 1/3)
* * * * [misc]progress:  [ 41 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (* 1 3)))>
* [enter]simplify:  Simplifying (* 1 3)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to 3
* [exit]simplify:  Simplified to 3
* * * * [misc]progress:  [ 42 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) (* 1 3)))>
* [enter]simplify:  Simplifying (* 1 3)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to 3
* [exit]simplify:  Simplified to 3
* * * * [misc]progress:  [ 43 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (* (pow (cbrt (* (* -2 J) (cos (/ K 2)))) 3) (pow (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 3)))>
* [enter]simplify:  Simplifying (pow (cbrt (* (* -2 J) (cos (/ K 2)))) 3)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (22 enodes)
* * [misc]simplify:  iters left: 2 (24 enodes)
* * [misc]simplify:  iters left: 1 (25 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [enter]simplify:  Simplifying (pow (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))) 3)
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (28 enodes)
* * [misc]simplify:  iters left: 4 (50 enodes)
* * [misc]simplify:  iters left: 3 (93 enodes)
* * [misc]simplify:  iters left: 2 (166 enodes)
* * [misc]simplify:  iters left: 1 (310 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (+ 1 (sqr (/ (/ U (+ J J)) (cos (/ K 2))))))
* * * * [misc]progress:  [ 44 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))>
* * * * [misc]progress:  [ 45 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3) 1))>
* * * * [misc]progress:  [ 46 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (log (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))>
* [enter]simplify:  Simplifying (log (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (39 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (141 enodes)
* * [misc]simplify:  iters left: 2 (259 enodes)
* [exit]simplify:  Simplified to (log (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (log (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 47 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (log (exp (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))>
* [enter]simplify:  Simplifying (exp (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (65 enodes)
* * [misc]simplify:  iters left: 3 (126 enodes)
* * [misc]simplify:  iters left: 2 (228 enodes)
* * [misc]simplify:  iters left: 1 (450 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 48 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (cube (cbrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))>
* [enter]simplify:  Simplifying (cbrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (65 enodes)
* * [misc]simplify:  iters left: 3 (120 enodes)
* * [misc]simplify:  iters left: 2 (204 enodes)
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 49 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (cube (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))>
* [enter]simplify:  Simplifying (cube (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (39 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (142 enodes)
* * [misc]simplify:  iters left: 2 (294 enodes)
* [exit]simplify:  Simplified to (cube (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cube (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 50 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (sqr (sqrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))>
* [enter]simplify:  Simplifying (sqrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (65 enodes)
* * [misc]simplify:  iters left: 3 (120 enodes)
* * [misc]simplify:  iters left: 2 (204 enodes)
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 51 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (* 1 (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3)))>
* * * * [misc]progress:  [ 52 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (pow (* (* -2 J) (cos (/ K 2))) 1/3) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* * * * [misc]progress:  [ 53 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (pow (cbrt (* (* -2 J) (cos (/ K 2)))) 1) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* * * * [misc]progress:  [ 54 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (exp (log (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (log (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (log (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (log (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 55 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (log (exp (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (exp (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (exp (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (exp (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 56 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (* -2 J))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  iters left: 2 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [enter]simplify:  Simplifying (cbrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* * * * [misc]progress:  [ 57 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cube (cbrt (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (cbrt (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (cbrt (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cbrt (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 58 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (cbrt (cube (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (cube (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* * [misc]simplify:  iters left: 1 (23 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 59 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (sqr (sqrt (cbrt (* (* -2 J) (cos (/ K 2)))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* [enter]simplify:  Simplifying (sqrt (cbrt (* (* -2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (16 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* * [misc]simplify:  iters left: 2 (22 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (sqrt (cbrt (* (cos (/ K 2)) (* J -2))))
* * * * [misc]progress:  [ 60 / 60 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* 1 (cbrt (* (* -2 J) (cos (/ K 2))))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))>
* * * [misc]progress:  adding candidates to table
* [misc]progress:  [Phase 3 of 3] Extracting.
* * [misc]regime-changes:  Finding splitpoints for: (#<alt-delta (λ (J K U) (/ (* (* (* U 1/2) (* J -2)) (cos (/ K 2))) (* (cos (/ -1/2 K)) J)))> #<alt-delta (λ (J K U) (* (cos (/ K 2)) (* J -2)))> #<alt-delta (λ (J K U) (/ (cos (/ -1/2 K)) (/ J 2)))> #<alt-delta (λ (J K U) (* (/ (cos (/ 1/2 K)) J) -2))> #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))> #<alt-delta (λ (J K U) (cube (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))> #<alt-delta (λ (J K U) (/ (* (* J -2) (cos (/ K 2))) (/ (cos (/ 1/2 K)) (/ (* U 1/2) J))))> #<alt-delta (λ (J K U) (* (/ (* 1/2 U) (cos (/ 1/2 K))) (/ (cos (/ K 2)) (/ 1 -2))))> #<alt-event (λ (J K U) (* -2 (* (cos (/ 1/2 K)) J)))> #<alt-delta (λ (J K U) (sqr (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))> #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3)))) (sqrt (+ (sqr 1) (- (sqr (sqr (/ U (* (* 2 J) (cos (/ K 2)))))) (* 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))> #<alt-delta (λ (J K U) (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))> #<alt-delta (λ (J K U) (cube (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))))> #<alt-delta (λ (J K U) (cube (cbrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))))> #<alt-delta (λ (J K U) (cbrt (* (* (cube (* -2 J)) (cube (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))))> #<alt-delta (λ (J K U) (pow (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))> #<alt-delta (λ (J K U) (* (/ (/ 1/2 (/ J U)) (cos (/ 1/2 K))) (* (cos (/ K 2)) (* J -2))))>)
* [misc]regimes:  Found splitpoints: (#s(sp 0 (/ U (* (* 2 J) (cos (/ K 2)))) 1.8969164030706211e+155) #s(sp 1 (/ U (* (* 2 J) (cos (/ K 2)))) +inf.0)) , with alts (#<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))> #<alt-delta (λ (J K U) (cube (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))))>)
* [misc]splitpoints:  intervals are:  ((#f . #s(sp 0 (/ U (* (* 2 J) (cos (/ K 2)))) 1.8969164030706211e+155)))
* [misc]splitpoints:  intervals are:  ((#s(sp 0 (/ U (* (* 2 J) (cos (/ K 2)))) 1.8969164030706211e+155) . #s(sp 1 (/ U (* (* 2 J) (cos (/ K 2)))) +inf.0)))
* [enter]simplify:  Simplifying (* (* (* U 1/2) (* J -2)) (cos (/ K 2)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (17 enodes)
* * [misc]simplify:  iters left: 4 (27 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (110 enodes)
* * [misc]simplify:  iters left: 1 (164 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* (* U J) (* -2 1/2)))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* (* U J) (* -2 1/2)))
* [enter]simplify:  Simplifying (* (cos (/ -1/2 K)) J)
* * [misc]simplify:  iters left: 5 (6 enodes)
* * [misc]simplify:  iters left: 4 (7 enodes)
* [exit]simplify:  Simplified to (* J (cos (/ -1/2 K)))
* [exit]simplify:  Simplified to (* J (cos (/ -1/2 K)))
* [enter]simplify:  Simplifying (cos (/ K 2))
* * [misc]simplify:  iters left: 3 (4 enodes)
* [exit]simplify:  Simplified to (cos (/ K 2))
* [exit]simplify:  Simplified to (cos (/ K 2))
* [enter]simplify:  Simplifying (* J -2)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (4 enodes)
* [exit]simplify:  Simplified to (* -2 J)
* [exit]simplify:  Simplified to (* -2 J)
* [enter]simplify:  Simplifying (/ (cos (/ 1/2 K)) J)
* * [misc]simplify:  iters left: 5 (6 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ 1/2 K)) J)
* [exit]simplify:  Simplified to (/ (cos (/ 1/2 K)) J)
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (57 enodes)
* * [misc]simplify:  iters left: 3 (102 enodes)
* * [misc]simplify:  iters left: 2 (193 enodes)
* * [misc]simplify:  iters left: 1 (458 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 J)) (cbrt (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (178 enodes)
* * [misc]simplify:  iters left: 1 (468 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (cbrt (* J -2)) (cbrt (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2))))))) (* (cbrt (* J -2)) (cbrt (cos (/ K 2)))))
* [enter]simplify:  Simplifying (* (* J -2) (cos (/ K 2)))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (11 enodes)
* * [misc]simplify:  iters left: 3 (14 enodes)
* * [misc]simplify:  iters left: 2 (18 enodes)
* * [misc]simplify:  iters left: 1 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* -2 J))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* -2 J))
* [enter]simplify:  Simplifying (/ (cos (/ 1/2 K)) (/ (* U 1/2) J))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (32 enodes)
* * [misc]simplify:  iters left: 2 (44 enodes)
* * [misc]simplify:  iters left: 1 (52 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ 1/2 K)) (* (/ 1/2 J) U))
* [exit]simplify:  Simplified to (/ (cos (/ 1/2 K)) (* (/ 1/2 J) U))
* [enter]simplify:  Simplifying (/ (* 1/2 U) (cos (/ 1/2 K)))
* * [misc]simplify:  iters left: 5 (7 enodes)
* * [misc]simplify:  iters left: 4 (10 enodes)
* * [misc]simplify:  iters left: 3 (12 enodes)
* * [misc]simplify:  iters left: 2 (15 enodes)
* * [misc]simplify:  iters left: 1 (17 enodes)
* [exit]simplify:  Simplified to (/ (* U 1/2) (cos (/ 1/2 K)))
* [exit]simplify:  Simplified to (/ (* U 1/2) (cos (/ 1/2 K)))
* [enter]simplify:  Simplifying (/ (cos (/ K 2)) (/ 1 -2))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (12 enodes)
* * [misc]simplify:  iters left: 3 (15 enodes)
* * [misc]simplify:  iters left: 2 (17 enodes)
* * [misc]simplify:  iters left: 1 (19 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ K 2)) (/ 1 -2))
* [exit]simplify:  Simplified to (/ (cos (/ K 2)) (/ 1 -2))
* [enter]simplify:  Simplifying (* -2 (* (cos (/ 1/2 K)) J))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (11 enodes)
* * [misc]simplify:  iters left: 4 (14 enodes)
* * [misc]simplify:  iters left: 3 (18 enodes)
* * [misc]simplify:  iters left: 2 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ 1/2 K)) (* -2 J))
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (195 enodes)
* * [misc]simplify:  iters left: 1 (390 enodes)
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (sqrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (sqr (/ U (* (* 2 J) (cos (/ K 2))))) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (343 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* J -2)) (sqrt (+ 1 (* (cube (/ (/ U (+ J J)) (cos (/ K 2)))) (cube (/ (/ U (+ J J)) (cos (/ K 2))))))))
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (22 enodes)
* * [misc]simplify:  iters left: 3 (26 enodes)
* * [misc]simplify:  iters left: 2 (28 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* J -2)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))
* [exit]simplify:  Simplified to (* (* (cbrt (* J -2)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))
* [enter]simplify:  Simplifying (cbrt (pow (* (cbrt (* (* -2 J) (cos (/ K 2)))) (cbrt (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2))))))))) 3))
* * [misc]simplify:  iters left: 6 (22 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (65 enodes)
* * [misc]simplify:  iters left: 3 (120 enodes)
* * [misc]simplify:  iters left: 2 (204 enodes)
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [exit]simplify:  Simplified to (cbrt (* (sqrt (+ (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))
* [enter]simplify:  Simplifying (* (* (cube (* -2 J)) (cube (cos (/ K 2)))) (cube (sqrt (+ 1 (sqr (/ U (* (* 2 J) (cos (/ K 2)))))))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (80 enodes)
* * [misc]simplify:  iters left: 3 (148 enodes)
* * [misc]simplify:  iters left: 2 (343 enodes)
* [exit]simplify:  Simplified to (* (* (* (cube (* J -2)) (cube (cos (/ K 2)))) (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (* (* (* (cube (* J -2)) (cube (cos (/ K 2)))) (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))) (sqrt (+ 1 (* (/ (/ U (+ J J)) (cos (/ K 2))) (/ (/ U (+ J J)) (cos (/ K 2)))))))
* [enter]simplify:  Simplifying (cbrt (* -2 J))
* * [misc]simplify:  iters left: 3 (4 enodes)
* * [misc]simplify:  iters left: 2 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [exit]simplify:  Simplified to (cbrt (* J -2))
* [enter]simplify:  Simplifying (cbrt (cos (/ K 2)))
* * [misc]simplify:  iters left: 4 (5 enodes)
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* [exit]simplify:  Simplified to (cbrt (cos (/ K 2)))
* [enter]simplify:  Simplifying (/ (/ 1/2 (/ J U)) (cos (/ 1/2 K)))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (23 enodes)
* * [misc]simplify:  iters left: 3 (27 enodes)
* * [misc]simplify:  iters left: 2 (33 enodes)
* * [misc]simplify:  iters left: 1 (46 enodes)
* [exit]simplify:  Simplified to (/ (/ 1/2 (/ J U)) (cos (/ 1/2 K)))
* [exit]simplify:  Simplified to (/ (/ 1/2 (/ J U)) (cos (/ 1/2 K)))
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (* J -2))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (11 enodes)
* * [misc]simplify:  iters left: 3 (14 enodes)
* * [misc]simplify:  iters left: 2 (18 enodes)
* * [misc]simplify:  iters left: 1 (20 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [enter]simplify:  Simplifying (* (* (* U 1/2) (* J -2)) (cos (/ K 2)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (17 enodes)
* * [misc]simplify:  iters left: 4 (27 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (110 enodes)
* * [misc]simplify:  iters left: 1 (164 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* (* U J) (* -2 1/2)))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* (* U J) (* -2 1/2)))
* [enter]simplify:  Simplifying (* (cos (/ -1/2 K)) J)
* * [misc]simplify:  iters left: 5 (6 enodes)
* * [misc]simplify:  iters left: 4 (7 enodes)
* [exit]simplify:  Simplified to (* J (cos (/ -1/2 K)))
* [exit]simplify:  Simplified to (* J (cos (/ -1/2 K)))
* [enter]simplify:  Simplifying (cos (/ -1/2 K))
* * [misc]simplify:  iters left: 3 (4 enodes)
* [exit]simplify:  Simplified to (cos (/ -1/2 K))
* [exit]simplify:  Simplified to (cos (/ -1/2 K))
* [enter]simplify:  Simplifying (/ J 2)
* * [misc]simplify:  iters left: 2 (3 enodes)
* [exit]simplify:  Simplified to (/ J 2)
* [exit]simplify:  Simplified to (/ J 2)
* [enter]simplify:  Simplifying (/ (* 1/2 U) (cos (/ 1/2 K)))
* * [misc]simplify:  iters left: 5 (7 enodes)
* * [misc]simplify:  iters left: 4 (10 enodes)
* * [misc]simplify:  iters left: 3 (12 enodes)
* * [misc]simplify:  iters left: 2 (15 enodes)
* * [misc]simplify:  iters left: 1 (17 enodes)
* [exit]simplify:  Simplified to (/ (* U 1/2) (cos (/ 1/2 K)))
* [exit]simplify:  Simplified to (/ (* U 1/2) (cos (/ 1/2 K)))
* [enter]simplify:  Simplifying (/ (cos (/ K 2)) (/ 1 -2))
* * [misc]simplify:  iters left: 5 (8 enodes)
* * [misc]simplify:  iters left: 4 (12 enodes)
* * [misc]simplify:  iters left: 3 (15 enodes)
* * [misc]simplify:  iters left: 2 (17 enodes)
* * [misc]simplify:  iters left: 1 (19 enodes)
* [exit]simplify:  Simplified to (/ (cos (/ K 2)) (/ 1 -2))
* [exit]simplify:  Simplified to (/ (cos (/ K 2)) (/ 1 -2))
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 J)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (22 enodes)
* * [misc]simplify:  iters left: 3 (26 enodes)
* * [misc]simplify:  iters left: 2 (28 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* J -2)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))
* [exit]simplify:  Simplified to (* (* (cbrt (* J -2)) (cbrt U)) (pow (exp 1/3) (- (log 1/2) (log J))))