Metrics for Spherical law of cosines

start0.0ms (0.0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

analyze800.0ms (5.9%)

Memory

60.4MiB live, 1 380.4MiB allocated; 156ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	0
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	1
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	2
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	3
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	4
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	5
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	6
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	7
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	8
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	9
0.0%	0.0%	99.8%	0.2%	0.0%	0.0%	0.0%	10
1.6%	1.6%	98.2%	0.2%	0.0%	0.0%	0.0%	11
1.6%	1.6%	98.2%	0.2%	0.0%	0.0%	0.0%	12

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample4.1s (30.0%)

Memory

155.3MiB live, 5 190.7MiB allocated; 968ms collecting garbage

Samples

3.0s	6 349×	1	valid
381.0ms	1 747×	0	valid
72.0ms	126×	2	valid
42.0ms	34×	3	valid

Precisions

Click to see histograms. Total time spent on operations: 3.0s

ival-cos: 1.3s (42.3% of total)

ival-sin: 796.0ms (26.2% of total)

ival-mult!: 313.0ms (10.3% of total)

adjust: 296.0ms (9.8% of total)

ival-acos: 269.0ms (8.9% of total)

ival-sub!: 42.0ms (1.4% of total)

ival-add!: 36.0ms (1.2% of total)

Bogosity

preprocess38.0ms (0.3%)

Memory

-17.4MiB live, 27.2MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	572	412

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	71.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Symmetry

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 38 to 34 computations (10.5% saved)

sample0.0ms (0.0%)

Memory

0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

Calls

Call 1

Inputs

Outputs

series75.0ms (0.6%)

Memory

-9.9MiB live, 93.9MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	421	2535

Stop Event

1×	iter-limit

Counts

17 → 98

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda1
lambda2
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx lambda1 lambda1)
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx lambda2 lambda2)
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx phi1 phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi2)))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx phi2 phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi1)))))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin phi2) (sin.f64 phi2))

Calls

15 calls:

Time	Variable	Point
9.0ms	phi2	0
3.0ms	lambda1	inf
3.0ms	phi1	-inf
3.0ms	phi2	inf
2.0ms	phi1	inf

rewrite140.0ms (1.0%)

Memory

43.5MiB live, 177.2MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	92
0	29	92
1	115	92
2	789	92
0	4167	92

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

17 → 259

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda1
lambda2
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (fabs.f64 (neg.f64 (neg.f64 phi1))))
(cos.f64 (fabs.f64 (neg.f64 (fabs.f64 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (fabs.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(sin.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(-.f64 (.f64 (sin.f64 phi2) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (fabs.f64 (neg.f64 (neg.f64 phi2))))
(cos.f64 (fabs.f64 (neg.f64 (fabs.f64 phi2))))
(cos.f64 (fabs.f64 (fabs.f64 (fabs.f64 phi2))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (neg.f64 (sin.f64 phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 phi2)) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (.f64 #s(literal 0 binary64) (sin.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi2) #s(literal 0 binary64)) (.f64 (cos.f64 phi2) #s(literal 1 binary64)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi2)) phi1)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi2)) phi1)) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi2)) phi1)) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi2)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 (neg.f64 phi1)))) (cos.f64 (-.f64 phi2 (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 phi2 (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 (fabs.f64 phi1)))) (cos.f64 (-.f64 phi2 (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (neg.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (neg.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) phi2)) (cos.f64 (-.f64 (neg.f64 (fabs.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (fabs.f64 phi1)) phi2)) (cos.f64 (-.f64 (fabs.f64 (fabs.f64 phi1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 (neg.f64 phi2)))) (cos.f64 (-.f64 phi1 (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 phi1 (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 (fabs.f64 phi2)))) (cos.f64 (-.f64 phi1 (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)))
lambda1
lambda2
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (neg.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 (neg.f64 (neg.f64 lambda2)))) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (neg.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(cos.f64 (fabs.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))
(cos.f64 (fabs.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 (-.f64 lambda2 lambda1))) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 0 binary64) (sin.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (+.f64 (neg.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 (neg.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

eval59.0ms (0.4%)

Memory: -8.0MiB live, 91.2MiB allocated; 20ms collecting garbage
Compiler: Compiled 11 211 to 2 756 computations (75.4% saved)

prune47.0ms (0.3%)

Memory

-20.6MiB live, 71.1MiB allocated; 9ms collecting garbage

Pruning

36 alts after pruning (35 fresh and 1 done)

	Pruned	Kept	Total
New	308	35	343
Fresh	0	0	0
Picked	1	0	1
Done	-1	1	0
Total	308	36	344

Accuracy

93.1%

Counts

344 → 36

Alt Table

Click to see full alt table

Status	Accuracy	Program
	71.0%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	71.0%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	71.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	71.2%	(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	71.1%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	28.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	28.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	44.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	43.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
▶	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	33.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	33.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
✓	71.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	55.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
▶	40.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
	42.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))) R)
	44.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	51.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	38.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	42.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	43.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	38.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	63.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	71.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	31.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	40.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)

Compiler

Compiled 2 511 to 1 691 computations (32.7% saved)

sample0.0ms (0.0%)

Memory

0.5MiB live, 0.5MiB allocated; 0ms collecting garbage

Calls

Call 1

Inputs
(PI)
1
-1/2

Outputs
#s(literal 884279719003555/281474976710656 binary64)
#s(literal 1 binary64)
#s(literal -1/2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 5 to 5 computations (0.0% saved)

Precisions

Click to see histograms. Total time spent on operations: 0.0ms

adjust: 0.0ms (0.0% of total)

series206.0ms (1.5%)

Memory

30.3MiB live, 257.0MiB allocated; 73ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1321	9457

Stop Event

1×	iter-limit

Counts

65 → 320

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(cos.f64 lambda2)
(cos.f64 lambda1)
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(*.f64 phi1 (sin.f64 phi2))
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(PI.f64)
(neg.f64 (cos.f64 phi1))
(-.f64 lambda2 lambda1)
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))
(.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(neg.f64 lambda2)
(cos.f64 (neg.f64 lambda2))
#s(literal -1/2 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(sin.f64 (neg.f64 lambda2))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)

Outputs
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx lambda1 lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda2 lambda1) lambda2)
#s(approx (- lambda2 lambda1) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) #s(literal -1 binary64))
#s(approx (- (/ lambda1 lambda2) 1) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* (cos lambda2) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda2 lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- lambda2 lambda1) (-.f64 lambda2 lambda1))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1)))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 (neg.f64 lambda1)))))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) lambda1)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) lambda1) (.f64 #s(literal 1/1440 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda2) (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- lambda2 lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (neg lambda2)) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda1 (cos (neg lambda2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx phi1 phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi2)))))))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (cos phi1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (neg (cos phi1)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (neg (cos phi1)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/24 binary64))))) #s(literal 1 binary64)))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (sin.f64 phi2)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (neg (cos phi1)) (*.f64 #s(literal -1 binary64) (cos.f64 phi1)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx phi2 phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi1)))))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* phi1 (sin phi2)) (*.f64 phi1 phi2))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi1) (.f64 #s(literal 1/120 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))))
#s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
#s(approx (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (sin.f64 phi1)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (sin.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (sin phi2) (sin.f64 phi2))

Calls

15 calls:

Time	Variable	Point
29.0ms	phi2	-inf
20.0ms	lambda1	inf
15.0ms	phi1	-inf
11.0ms	lambda2	inf
9.0ms	lambda1	-inf

rewrite783.0ms (5.8%)

Memory

-5.1MiB live, 466.0MiB allocated; 81ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	75	725
0	130	667
1	562	659
2	3160	659
0	5268	631

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

65 → 803

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(cos.f64 lambda2)
(cos.f64 lambda1)
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(*.f64 phi1 (sin.f64 phi2))
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(PI.f64)
(neg.f64 (cos.f64 phi1))
(-.f64 lambda2 lambda1)
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))
(.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(neg.f64 lambda2)
(cos.f64 (neg.f64 lambda2))
#s(literal -1/2 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(sin.f64 (neg.f64 lambda2))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))
lambda2
(neg.f64 (neg.f64 (sin.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 lambda2) (PI.f64)))
(sin.f64 lambda2)
(cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)))
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(*.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))))
(-.f64 (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) lambda1)) (cos.f64 (-.f64 (fabs.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda2 (fabs.f64 lambda1))) (cos.f64 (-.f64 lambda2 (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (neg.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) lambda2)) (cos.f64 (-.f64 (fabs.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 (fabs.f64 lambda2))) (cos.f64 (-.f64 lambda1 (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) lambda1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) lambda2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (neg.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (neg.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (neg.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1)))) (cos.f64 phi2)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (neg.f64 (cos.f64 phi1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (PI.f64))) (PI.f64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (-.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(neg.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (-.f64 (PI.f64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) (PI.f64))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(neg.f64 (.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(neg.f64 (.f64 R (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(+.f64 (.f64 R (PI.f64)) (.f64 R (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(*.f64 (sin.f64 phi2) phi1)
(*.f64 phi1 (sin.f64 phi2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (*.f64 lambda2 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 lambda2)
(+.f64 (.f64 lambda2 (/.f64 lambda1 lambda2)) (.f64 lambda2 #s(literal -1 binary64)))
(+.f64 (.f64 (/.f64 lambda1 lambda2) lambda2) (.f64 #s(literal -1 binary64) lambda2))
(+.f64 (neg.f64 lambda2) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (neg.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1))) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 phi2) phi1) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (sin.f64 phi2) phi1)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi2)) phi1))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (neg.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (neg.f64 (.f64 (sin.f64 phi2) phi1)))
(-.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (neg.f64 (neg.f64 (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) phi1) (neg.f64 (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))))
(neg.f64 (-.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1)))))
(PI.f64)
(neg.f64 (cos.f64 phi1))
(sin.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))
(sin.f64 (+.f64 (+.f64 (PI.f64) phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (PI.f64)))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 (PI.f64))) (.f64 (sin.f64 phi1) (sin.f64 (PI.f64))))
(cos.f64 (neg.f64 (+.f64 (PI.f64) phi1)))
(cos.f64 (fabs.f64 (+.f64 (PI.f64) phi1)))
(cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (+.f64 (neg.f64 phi1) (PI.f64)))
(cos.f64 (+.f64 (fabs.f64 phi1) (PI.f64)))
(cos.f64 (+.f64 (PI.f64) phi1))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda1) lambda2)) lambda2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 lambda1))) (+.f64 lambda1 lambda2))
(/.f64 (+.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (*.f64 lambda2 (neg.f64 lambda1)))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda1))))
(neg.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda2 (neg.f64 (neg.f64 lambda1)))
(-.f64 lambda2 lambda1)
(+.f64 (neg.f64 lambda1) lambda2)
(+.f64 lambda2 (neg.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (neg.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (neg.f64 (cos.f64 lambda2))) (cos.f64 lambda1)))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi2 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))
(.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2))
(.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))))
(.f64 (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) (neg.f64 (cos.f64 phi1))) #s(literal 2 binary64))
(neg.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (neg.f64 (.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (neg.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1)))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (neg.f64 (neg.f64 (sin.f64 phi2))) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (neg.f64 (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2))))
(-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (PI.f64))) (PI.f64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) (-.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (+.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(neg.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (-.f64 (PI.f64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) (PI.f64))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (PI.f64) (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(neg.f64 (.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(neg.f64 (.f64 R (neg.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(+.f64 (.f64 R (PI.f64)) (.f64 R (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(*.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1)
(*.f64 (neg.f64 lambda1) (/.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(*.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2))
(/.f64 (*.f64 lambda1 #s(literal 1 binary64)) lambda2)
(/.f64 (neg.f64 (neg.f64 lambda1)) lambda2)
(/.f64 (neg.f64 lambda1) (neg.f64 lambda2))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) (neg.f64 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))
(/.f64 lambda1 lambda2)
(neg.f64 (/.f64 lambda1 (neg.f64 lambda2)))
(neg.f64 (/.f64 (neg.f64 lambda1) lambda2))
#s(literal 1 binary64)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))) (/.f64 lambda1 lambda2))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))) (/.f64 lambda1 lambda2))
(/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal -1 binary64) #s(literal -1 binary64))) (-.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))
(/.f64 (+.f64 (pow.f64 (/.f64 lambda1 lambda2) #s(literal 3 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) #s(literal -1 binary64)) (*.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64)))))
(/.f64 (-.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 lambda1 lambda2) #s(literal 3 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 lambda1 lambda2) (/.f64 lambda1 lambda2)) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
(neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(+.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(+.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (*.f64 lambda2 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 lambda2)
(+.f64 (.f64 lambda2 (/.f64 lambda1 lambda2)) (.f64 lambda2 #s(literal -1 binary64)))
(+.f64 (.f64 (/.f64 lambda1 lambda2) lambda2) (.f64 #s(literal -1 binary64) lambda2))
(+.f64 (neg.f64 lambda2) (neg.f64 (neg.f64 lambda1)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
(sin.f64 (+.f64 (neg.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 (fabs.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(cos.f64 (fabs.f64 (fabs.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))
(+.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(neg.f64 lambda2)
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 lambda2)))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(literal -1/2 binary64)
(*.f64 (cos.f64 lambda2) lambda1)
(*.f64 lambda1 (cos.f64 lambda2))
(.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1)
(.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) lambda1))
(.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) lambda1))
(.f64 lambda1 (.f64 (cos.f64 lambda2) #s(literal -1/2 binary64)))
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) (.f64 (sin.f64 lambda2) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (sin.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (sin.f64 lambda2)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) (+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))))))
(neg.f64 (-.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2)))
(+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (sin.f64 lambda2))
(.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)
(.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))))
(neg.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))))
(+.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) (.f64 lambda1 (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) lambda1) (.f64 (sin.f64 lambda2) lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (cos.f64 lambda2))) (cos.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (cos.f64 lambda2))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))))) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))))) (.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))) (-.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)) (.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)))))
(neg.f64 (-.f64 (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))) (cos.f64 lambda2)))
(-.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (neg.f64 (cos.f64 lambda2)))
(-.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))))
(+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))
(+.f64 (cos.f64 lambda2) (.f64 (neg.f64 (neg.f64 lambda1)) (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)))))
(+.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))))
(.f64 (cos.f64 phi1) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (cos.f64 phi2)))
(/.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))))
(+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (neg.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

eval153.0ms (1.1%)

Memory: 23.6MiB live, 246.5MiB allocated; 39ms collecting garbage
Compiler: Compiled 49 752 to 8 176 computations (83.6% saved)

prune111.0ms (0.8%)

Memory

-15.0MiB live, 175.0MiB allocated; 19ms collecting garbage

Pruning

79 alts after pruning (77 fresh and 2 done)

	Pruned	Kept	Total
New	1 112	67	1 179
Fresh	20	10	30
Picked	5	0	5
Done	-1	2	1
Total	1 136	79	1 215

Accuracy

93.3%

Counts

1 215 → 79

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.7%	(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
	70.8%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	70.9%	(.f64 (/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.5%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	71.1%	(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.0%	(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
	92.4%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 (PI.f64))) (.f64 (sin.f64 phi1) (sin.f64 (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	55.6%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.7%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	51.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	41.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.5%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	31.4%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	71.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	70.8%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
	28.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	72.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	41.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
▶	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
▶	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
✓	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
	54.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	51.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	82.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	33.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	33.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
✓	71.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
	53.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
	44.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	31.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)))))) R)
	51.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	15.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))))) R)
	15.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	38.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))) R)
	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
▶	42.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	57.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	43.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	31.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
▶	51.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	71.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	48.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	42.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	35.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	11.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
	11.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	23.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
	20.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	17.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	23.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
	42.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	16.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)

Compiler

Compiled 5 717 to 4 129 computations (27.8% saved)

sample0.0ms (0.0%)

Memory

0.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Calls

Call 1

Inputs
(PI)
1/2
(* (PI) 1/2)
(cos (* (PI) 1/2))
(sin (* (PI) 1/2))

Outputs
#s(literal 884279719003555/281474976710656 binary64)
#s(literal 1/2 binary64)
#s(literal 884279719003555/562949953421312 binary64)
#s(literal 0 binary64)
#s(literal 1 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 15 to 7 computations (53.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 0.0ms

adjust: 0.0ms (0.0% of total)

series206.0ms (1.5%)

Memory

-29.8MiB live, 245.7MiB allocated; 122ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1460	13113

Stop Event

1×	iter-limit

Counts

58 → 334

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(PI.f64)
#s(literal 1/2 binary64)
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 lambda2)
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 lambda1)
(.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(*.f64 phi1 phi2)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(*.f64 phi1 (sin.f64 phi2))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Outputs
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx lambda1 lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda1 (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))))) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos lambda2) (cos lambda1)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda2) (cos lambda1)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx lambda2 lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos lambda2) (sin (* (PI) 1/2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos lambda2) (sin (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos lambda2) (sin (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos lambda2) (sin (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda2 (+.f64 (sin.f64 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))) (+.f64 (.f64 lambda2 (+.f64 (sin.f64 lambda1) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) (.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))) (*.f64 phi1 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
#s(approx (* (cos lambda2) (sin (* (PI) 1/2))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx phi1 phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi2)))))))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (PI) 1/2) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (* (PI) 1/2) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (+ (* (PI) 1/2) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (PI) 1/2) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx phi2 phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi1)))))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) (sin (* (PI) 1/2)))) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi1) (.f64 #s(literal 1/120 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (* phi1 (sin phi2)) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))

Calls

15 calls:

Time	Variable	Point
45.0ms	lambda2	0
11.0ms	phi1	inf
10.0ms	phi2	-inf
9.0ms	phi1	-inf
8.0ms	lambda1	inf

rewrite211.0ms (1.6%)

Memory

32.9MiB live, 457.1MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	71	753
0	120	708
1	507	568
2	3316	568
0	4705	568

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

58 → 848

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(PI.f64)
#s(literal 1/2 binary64)
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 lambda2)
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 lambda1)
(.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
(-.f64 lambda1 lambda2)
(cos.f64 (-.f64 lambda1 lambda2))
(*.f64 phi1 phi2)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))
(.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(*.f64 phi1 (sin.f64 phi2))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(PI.f64)
#s(literal 1/2 binary64)
(.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (+.f64 (sin.f64 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (neg.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))) (sin.f64 (+.f64 lambda2 (neg.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 lambda2 (neg.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 lambda2 (fabs.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 lambda2 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2)) #s(literal 2 binary64))
(+.f64 (/.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (/.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(neg.f64 (neg.f64 (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 lambda2))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (cos.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (cos.f64 lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (fabs.f64 lambda2))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (cos.f64 lambda2)) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(neg.f64 (neg.f64 (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 (-.f64 (neg.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) lambda2)) (cos.f64 (-.f64 (fabs.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 (fabs.f64 lambda2))) (cos.f64 (-.f64 lambda1 (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) lambda1)) (cos.f64 (-.f64 (fabs.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda2 (fabs.f64 lambda1))) (cos.f64 (-.f64 lambda2 (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda1)))
(+.f64 (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (neg.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(*.f64 phi2 phi1)
(*.f64 phi1 phi2)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 phi1) phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 (neg.f64 phi1) phi2) (.f64 (neg.f64 phi1) phi2))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2)))
(/.f64 (+.f64 (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 phi1) phi2) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (.f64 (.f64 (neg.f64 phi1) phi2) (.f64 (neg.f64 phi1) phi2)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 phi1) phi2) (cos.f64 (-.f64 lambda2 lambda1))))
(-.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(-.f64 (*.f64 phi2 phi1) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 phi1) phi2))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (*.f64 phi2 phi1)))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (*.f64 (neg.f64 phi1) phi2)))
(+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 phi2 phi1)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 phi1) phi2)))
(+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (neg.f64 (neg.f64 phi1)) phi2))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (*.f64 (neg.f64 phi1) phi2)))
(+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 phi2 phi1))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 phi2 phi1)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 phi1) phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(neg.f64 (-.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)))))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (neg.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) phi1)
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (+.f64 (*.f64 phi1 #s(literal 2 binary64)) (PI.f64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 phi1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 phi1 phi1) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(neg.f64 (-.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1))
(-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 phi1)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi2) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (neg.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (neg.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (fabs.f64 phi2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) #s(literal 2 binary64))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (neg.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(+.f64 (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 (sin.f64 phi2) phi1)
(*.f64 phi1 (sin.f64 phi2))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda2) (cos.f64 lambda1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (neg.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (neg.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 (fabs.f64 lambda2)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 (fabs.f64 lambda2))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (sin.f64 (+.f64 (+.f64 (neg.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (sin.f64 (+.f64 (+.f64 (fabs.f64 lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (neg.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (neg.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 (fabs.f64 lambda1)))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 (fabs.f64 lambda1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (neg.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda1) lambda2)) (cos.f64 (-.f64 (neg.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (neg.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) (fabs.f64 lambda2))) (cos.f64 (-.f64 (fabs.f64 lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda1) lambda2)) (cos.f64 (-.f64 (fabs.f64 lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda1 (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 (fabs.f64 lambda2))) (cos.f64 (-.f64 lambda1 (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (neg.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (neg.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (neg.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) (fabs.f64 lambda1))) (cos.f64 (-.f64 (fabs.f64 lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 lambda2) lambda1)) (cos.f64 (-.f64 (fabs.f64 lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda2 (fabs.f64 lambda1))) (cos.f64 (-.f64 lambda2 (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (neg.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 lambda2))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) (fabs.f64 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (neg.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) (fabs.f64 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda1)))
(+.f64 (/.f64 (cos.f64 (+.f64 lambda1 lambda2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda1 lambda2)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)))) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) (sin.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (neg.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx ( (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(/.f64 (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))) (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))) (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (-.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(-.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (neg.f64 #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(+.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2))) (.f64 (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1)) (sin.f64 lambda2)) (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (cos.f64 lambda2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) #s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))))
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 R (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 (sin.f64 phi2) phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))))

eval162.0ms (1.2%)

Memory: 28.9MiB live, 254.4MiB allocated; 56ms collecting garbage
Compiler: Compiled 55 862 to 8 344 computations (85.1% saved)

prune126.0ms (0.9%)

Memory

-16.1MiB live, 215.6MiB allocated; 12ms collecting garbage

Pruning

96 alts after pruning (93 fresh and 3 done)

	Pruned	Kept	Total
New	1 139	41	1 180
Fresh	20	52	72
Picked	5	0	5
Done	-1	3	2
Total	1 163	96	1 259

Accuracy

93.4%

Counts

1 259 → 96

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.7%	(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
	70.8%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	70.9%	(.f64 (/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	31.5%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
	42.1%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	16.1%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
	71.1%	(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.0%	(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
	92.4%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 (PI.f64))) (.f64 (sin.f64 phi1) (sin.f64 (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.7%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	51.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	41.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	35.5%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	31.4%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	71.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	42.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	16.1%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
	55.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2)))) #s(literal 2 binary64))) (cos.f64 lambda1)))))) R)
▶	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
✓	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
	54.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	51.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	82.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
	33.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	33.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
✓	71.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
	53.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
▶	44.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	51.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	15.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))))) R)
	15.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	38.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	26.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
	31.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	18.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
	18.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
	18.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
▶	18.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
	26.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	32.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
	21.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	21.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
	31.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	57.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	43.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.6%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	51.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	50.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (cos.f64 lambda1)))))) R)
✓	51.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	21.5%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
	42.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	25.6%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	71.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	20.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
	48.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	11.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
	11.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	20.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	42.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	6.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
	8.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	9.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
	8.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
	39.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
▶	10.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
	16.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
	16.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)

Compiler

Compiled 7 226 to 5 176 computations (28.4% saved)

sample0.0ms (0.0%)

Memory

0.6MiB live, 0.6MiB allocated; 0ms collecting garbage

Calls

Call 1

Inputs
(PI)
1/2
(* (PI) 1/2)
(cos (* (PI) 1/2))
1
-1
(* 1/2 (PI))
2

Outputs
#s(literal 884279719003555/281474976710656 binary64)
#s(literal 1/2 binary64)
#s(literal 884279719003555/562949953421312 binary64)
#s(literal 0 binary64)
#s(literal 1 binary64)
#s(literal -1 binary64)
#s(literal 884279719003555/562949953421312 binary64)
#s(literal 2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 17 to 10 computations (41.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 0.0ms

adjust: 0.0ms (0.0% of total)

series2.6s (19.4%)

Memory

-241.0MiB live, 345.4MiB allocated; 3.4s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1941	16139

Stop Event

1×	iter-limit

Counts

70 → 430

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(PI.f64)
#s(literal 1/2 binary64)
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 lambda2)
#s(literal 1 binary64)
(*.f64 (cos.f64 lambda2) #s(literal 1 binary64))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64)))
(cos.f64 lambda1)
(.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
(*.f64 phi1 phi2)
(+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
#s(literal -1 binary64)
(*.f64 phi2 (sin.f64 phi1))
(.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)))
(-.f64 lambda2 lambda1)
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(-.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(neg.f64 phi1)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(-.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))
(sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))
(+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))
(sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))
(+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))))
#s(literal 2 binary64)
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(*.f64 lambda2 (sin.f64 lambda1))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)

Outputs
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx lambda1 lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 lambda1 (sin.f64 lambda2)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda2) (+.f64 (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (*.f64 phi1 phi2)))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 phi1 phi2))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda2 lambda1) lambda2)
#s(approx (- lambda2 lambda1) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 lambda2))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1)))))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 phi1)))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))))))))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (*.f64 #s(literal 1/120 binary64) lambda2))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (sin lambda2) (sin lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- lambda2 lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- lambda2 lambda1) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (+.f64 (/.f64 lambda2 lambda1) (/.f64 phi1 lambda1)))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 phi1))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 lambda1 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) (/.f64 lambda2 lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 phi1 lambda1)))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda1 phi1))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda1 phi1)))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda1 phi1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)) lambda1)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1) lambda1))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda1))))) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda1))))) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 1/2 binary64)))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (sin.f64 lambda1) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) (.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))) (*.f64 phi1 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- lambda2 lambda1) (-.f64 lambda2 lambda1))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1)))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 (neg.f64 lambda1)))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 (neg.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda1))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (sin.f64 (neg.f64 lambda1)))))) (sin.f64 (neg.f64 lambda1))))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1))))))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1))))) (*.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1)))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1)))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1)))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1))))) (*.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda1))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda1 phi1)))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (* (sin lambda2) (cos (* (PI) 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
#s(approx (- lambda2 lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)) (/.f64 lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (/.f64 phi1 lambda2)))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (+.f64 (/.f64 lambda1 lambda2) (/.f64 phi1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- lambda2 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1)))) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (PI) (acos (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1) lambda2))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1)) lambda2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda2))))) (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (+.f64 phi1 (.f64 #s(literal -1 binary64) lambda2))))) (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx phi1 phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi2)))))))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi2 (sin phi1)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))
#s(approx (* phi2 (sin phi1)) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi2) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))))
#s(approx (* phi2 (sin phi1)) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)) (*.f64 #s(literal 1/120 binary64) phi2))))))))
#s(approx (* -1 (* phi2 (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 phi2)))
#s(approx (* -1 (* phi2 (sin phi1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))
#s(approx (* -1 (* phi2 (sin phi1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)) (.f64 #s(literal 1/6 binary64) phi2))))))
#s(approx (* -1 (* phi2 (sin phi1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/120 binary64) phi2) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))))
#s(approx (* (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
#s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/24 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 1/720 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda2 lambda1))))))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda2 lambda1))))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 phi1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (sin.f64 phi2)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))) (sin.f64 phi2)))))
#s(approx (neg phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (neg phi1) (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi1) (* 1/2 (PI))) (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2))))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (* phi2 (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* -1 (* phi2 (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (neg phi1) (* 1/2 (PI))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) (/.f64 lambda1 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 phi1)))))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) (/.f64 lambda2 phi1)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 phi1)))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) phi1))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) phi2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (neg phi1) (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) phi1))))))
#s(approx (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))
#s(approx (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1) phi1))))))
#s(approx (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))
#s(approx (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))))
#s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))
#s(approx phi2 phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))))))))
#s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (*.f64 #s(literal 1/120 binary64) (sin.f64 phi1)))))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (+ (* (sin lambda2) (cos (* (PI) 1/2))) (* (cos lambda2) 1)) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (sin.f64 phi1)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (sin.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi1)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))) phi2)))))
#s(approx (+ (cos lambda1) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) phi2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))) phi2)))))

Calls

15 calls:

Time	Variable	Point
2.4s	phi2	-inf
12.0ms	lambda1	inf
12.0ms	lambda2	-inf
12.0ms	phi1	-inf
11.0ms	lambda2	inf

rewrite214.0ms (1.6%)

Memory

18.9MiB live, 525.8MiB allocated; 41ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	99	1041
0	154	906
1	756	874
0	4201	874

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

70 → 692

Calls

Call 1

Inputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(PI.f64)
#s(literal 1/2 binary64)
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 lambda2)
#s(literal 1 binary64)
(*.f64 (cos.f64 lambda2) #s(literal 1 binary64))
(+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64)))
(cos.f64 lambda1)
(.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))
(+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1))))))
R
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
(*.f64 phi1 phi2)
(+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
#s(literal -1 binary64)
(*.f64 phi2 (sin.f64 phi1))
(.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)))
(-.f64 lambda2 lambda1)
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))
(acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))
(-.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(neg.f64 phi1)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(-.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))
(sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))
(+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))
(sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))
(+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))))
#s(literal 2 binary64)
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(*.f64 lambda2 (sin.f64 lambda1))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)

Outputs
phi1
(sin.f64 phi1)
phi2
(sin.f64 phi2)
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 phi1))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 phi1))))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))
lambda2
(sin.f64 lambda2)
lambda1
(sin.f64 lambda1)
(*.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(*.f64 (sin.f64 lambda2) (sin.f64 lambda1))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))))
(-.f64 (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(PI.f64)
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(cos.f64 (*.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (+.f64 (sin.f64 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))
(.f64 (sin.f64 lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2)) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 lambda2) (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 lambda2 (.f64 (fabs.f64 (PI.f64)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))))
(+.f64 (/.f64 (sin.f64 (-.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64)) (/.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
(*.f64 (cos.f64 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(neg.f64 (neg.f64 (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(literal 1 binary64)
(*.f64 (cos.f64 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 lambda2))
(neg.f64 (neg.f64 (cos.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda2))) (cos.f64 lambda2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (cos.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (neg.f64 (cos.f64 lambda2)) (neg.f64 (cos.f64 lambda2)))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (neg.f64 (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (+.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (neg.f64 (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (neg.f64 (cos.f64 lambda2))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda2)))))
(neg.f64 (-.f64 (neg.f64 (cos.f64 lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(-.f64 (cos.f64 lambda2) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 lambda2)))
(-.f64 (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (neg.f64 (cos.f64 lambda2)))
(+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda2))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(.f64 (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (cos.f64 lambda1))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (cos.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
(+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
(-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 lambda1)) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
R
(.f64 R (acos.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(.f64 (acos.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(*.f64 phi2 phi1)
(*.f64 phi1 phi2)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 phi2) phi1) (cos.f64 lambda1))) (cos.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 phi1) (cos.f64 lambda1))) (cos.f64 lambda1))
(/.f64 (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda1))) (-.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (neg.f64 phi2) phi1) (.f64 (neg.f64 phi2) phi1))) (+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 phi2) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 phi2) phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (+.f64 (.f64 (.f64 (neg.f64 phi2) phi1) (.f64 (neg.f64 phi2) phi1)) (.f64 (cos.f64 lambda1) (*.f64 (neg.f64 phi2) phi1)))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1))) (-.f64 (cos.f64 lambda1) (*.f64 phi2 phi1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 phi2 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 phi2 phi1) (.f64 phi2 phi1)) (.f64 (cos.f64 lambda1) (*.f64 phi2 phi1)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 phi2) phi1) (cos.f64 lambda1)))
(-.f64 (*.f64 phi2 phi1) (neg.f64 (cos.f64 lambda1)))
(-.f64 (cos.f64 lambda1) (*.f64 (neg.f64 phi2) phi1))
(+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))
(+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 (neg.f64 phi1)) phi2))
(+.f64 (cos.f64 lambda1) (neg.f64 (*.f64 (neg.f64 phi2) phi1)))
(+.f64 (cos.f64 lambda1) (*.f64 phi2 phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1))))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))))))
(neg.f64 (-.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (asin.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))) R)
(.f64 R (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1)))))))
#s(literal -1 binary64)
(*.f64 phi2 (sin.f64 phi1))
(*.f64 (sin.f64 phi1) phi2)
(*.f64 (neg.f64 (sin.f64 phi1)) phi2)
(.f64 (.f64 #s(literal -1 binary64) phi2) (sin.f64 phi1))
(*.f64 (neg.f64 phi2) (sin.f64 phi1))
(.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (neg.f64 (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (neg.f64 phi2))
(neg.f64 (*.f64 phi2 (sin.f64 phi1)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda1) lambda2)) lambda2)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 lambda1))) (+.f64 lambda2 lambda1))
(/.f64 (+.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (-.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (*.f64 lambda2 (neg.f64 lambda1)))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (+.f64 lambda2 lambda1))
(/.f64 (-.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 lambda2 lambda2) (+.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda1))))
(neg.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda2 (neg.f64 (neg.f64 lambda1)))
(-.f64 lambda2 lambda1)
(+.f64 (neg.f64 lambda1) (neg.f64 (neg.f64 lambda2)))
(+.f64 lambda2 (neg.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)))) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))))
(/.f64 (+.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 lambda2 lambda1)) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (neg.f64 lambda1))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (.f64 (neg.f64 (cos.f64 lambda2)) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))))
(neg.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal -2 binary64)))
(neg.f64 (/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1))
(.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal -2 binary64))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(literal -1 binary64) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 #s(literal -1 binary64) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (neg.f64 phi2) (sin.f64 phi1)))) (.f64 (neg.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 phi2) (sin.f64 phi1)))) (.f64 (neg.f64 phi2) (sin.f64 phi1)))
(.f64 #s(literal -1 binary64) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (*.f64 phi2 (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))) (+.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (neg.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (neg.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))
(neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))
(neg.f64 (-.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 (neg.f64 phi2) (sin.f64 phi1))))
(neg.f64 (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (*.f64 #s(literal -1 binary64) phi2)) (sin.f64 phi1)))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (*.f64 (neg.f64 phi2) (sin.f64 phi1)) #s(literal -1 binary64)))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal 1 binary64) (*.f64 phi2 (sin.f64 phi1))))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (neg.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))
(-.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))
(-.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (neg.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (neg.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))))
(+.f64 (.f64 (neg.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))))
#s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))))
(neg.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (asin.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (PI.f64))) (PI.f64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (PI.f64))) (PI.f64))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))) (-.f64 (PI.f64) (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))))
(/.f64 (+.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) (.f64 (PI.f64) (neg.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))))))
(/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) (+.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))))
(neg.f64 (-.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (PI.f64)))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(-.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))
(+.f64 (PI.f64) (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(acos.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))
(.f64 (acos.f64 (neg.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R)
(.f64 R (acos.f64 (neg.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))
(neg.f64 (.f64 (-.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (PI.f64)) R))
(neg.f64 (.f64 R (-.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (PI.f64))))
(+.f64 (.f64 R (PI.f64)) (.f64 R (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))))
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(neg.f64 phi1)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1))) (neg.f64 phi1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (neg.f64 phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (neg.f64 phi1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(-.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 phi1))
(+.f64 (neg.f64 phi1) (neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 lambda2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda2 lambda1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(/.f64 (-.f64 (.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (.f64 lambda1 lambda1)) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))) (-.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (-.f64 (.f64 lambda1 lambda1) (.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1))))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))) (.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))
(neg.f64 (-.f64 (-.f64 lambda2 lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(-.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (neg.f64 lambda1))
(-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))
(-.f64 (neg.f64 phi1) (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))
(+.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1)
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))
(+.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(neg.f64 (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (sin.f64 lambda1)))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda1 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (-.f64 lambda2 lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2))) (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 lambda2) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda2 lambda1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)))) (-.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (.f64 lambda1 lambda1)) (+.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))
(/.f64 (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (-.f64 (-.f64 lambda2 lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2))) (.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (-.f64 lambda2 lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(/.f64 (-.f64 (pow.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (+.f64 (.f64 lambda1 lambda1) (.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1))) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) #s(literal 3 binary64)) (pow.f64 (-.f64 lambda2 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) (.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))
(neg.f64 (-.f64 lambda1 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)))
(neg.f64 (-.f64 (-.f64 lambda1 lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(-.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) lambda1)
(-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))
(-.f64 (neg.f64 phi1) (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2))))
(-.f64 (-.f64 lambda2 lambda1) (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(+.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2) (neg.f64 lambda1))
(+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))
(+.f64 (neg.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)))
(+.f64 (-.f64 lambda2 lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))))))
(sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))
(-.f64 (.f64 (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (cos.f64 lambda1)) (.f64 (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) lambda2)) (sin.f64 lambda1)))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (sin.f64 (-.f64 lambda2 lambda1))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1)))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda2 lambda1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (+.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) (-.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) (.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))) (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) (+.f64 (.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (neg.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))) (-.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))))
(neg.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))))
(-.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))
(-.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))))
(+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))
(+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (neg.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))))
(+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))
#s(literal 2 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal -1/2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1)) (cos.f64 (-.f64 (fabs.f64 (-.f64 lambda2 lambda1)) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda2 lambda1) phi1)) (cos.f64 (-.f64 (-.f64 lambda2 lambda1) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1))) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (fabs.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 (neg.f64 phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1)))) (cos.f64 (-.f64 phi1 (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1))) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1)))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fabs.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))))
(neg.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal -2 binary64)))
(neg.f64 (/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(-.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (/.f64 (neg.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (cos.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))))
(+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (asin.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(*.f64 (sin.f64 lambda1) lambda2)
(*.f64 lambda2 (sin.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))) (*.f64 (sin.f64 lambda1) lambda2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (cos.f64 lambda1))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda1))) (-.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 lambda2) (sin.f64 lambda1)))) (+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2)) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (+.f64 (.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 lambda2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2))) (-.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (-.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2)) (.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (cos.f64 lambda1)))
(-.f64 (*.f64 (sin.f64 lambda1) lambda2) (neg.f64 (cos.f64 lambda1)))
(-.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))
(+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))
(+.f64 (cos.f64 lambda1) (neg.f64 (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))
#s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))
(.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(/.f64 (+.f64 (.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))) (+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (+.f64 (.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (-.f64 (.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))
(+.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (asin.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (+.f64 (.f64 #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (+.f64 (.f64 #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))

eval157.0ms (1.2%)

Memory: 2.2MiB live, 267.2MiB allocated; 30ms collecting garbage
Compiler: Compiled 65 738 to 9 451 computations (85.6% saved)

prune168.0ms (1.2%)

Memory

34.1MiB live, 269.7MiB allocated; 38ms collecting garbage

Pruning

127 alts after pruning (122 fresh and 5 done)

	Pruned	Kept	Total
New	1 135	56	1 191
Fresh	22	66	88
Picked	5	0	5
Done	-2	5	3
Total	1 160	127	1 287

Accuracy

93.5%

Counts

1 287 → 127

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.7%	(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
	35.4%	(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
	92.5%	(.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
	35.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))))) R)
	92.5%	(.f64 (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	35.5%	(.f64 (/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) (+.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
	71.1%	(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	92.7%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.6%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
	16.1%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	10.6%	(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
	35.5%	(.f64 (-.f64 (PI.f64) (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))))) R)
	35.6%	(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
	71.1%	(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
	71.0%	(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
	35.5%	(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
	92.4%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 (PI.f64))) (.f64 (sin.f64 phi1) (sin.f64 (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	70.9%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	49.7%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	51.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	41.2%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	42.0%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	38.5%	(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	35.5%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
	12.2%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
	12.0%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
	20.1%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	47.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))) R)
	43.3%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
	16.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
	16.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
	26.4%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
	22.8%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
	17.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
	26.4%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
	17.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
	18.8%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
	38.9%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
	16.1%	(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
	92.6%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	71.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
	42.0%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	16.1%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	10.6%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
	19.2%	(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
	41.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	92.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
	91.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (cos.f64 lambda1)))))) R)
✓	92.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
	54.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	51.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	33.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
	33.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
✓	71.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	54.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
	53.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
	42.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
✓	44.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
	33.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))) (*.f64 (sin.f64 lambda1) lambda2)))))) R)
	18.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
	20.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
	44.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
	51.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	15.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))))) R)
	15.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) R)
	49.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	38.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	29.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
	26.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
	19.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	18.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
	18.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
	17.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
	19.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
	17.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
	17.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	17.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	18.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	29.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
	26.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	49.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	28.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	18.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
	15.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
	31.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	57.7%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	43.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	35.6%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	51.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
✓	51.4%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	42.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
	11.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	25.6%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	71.2%	(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
	20.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
	48.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	11.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	11.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	20.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
	21.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	42.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
	6.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
	8.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
	9.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
	8.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
	39.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
	6.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
	6.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
✓	10.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
	1.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
	6.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
	24.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	10.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
	10.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)

Compiler

Compiled 5 567 to 3 778 computations (32.1% saved)

regimes2.4s (17.8%)

Memory

178.5MiB live, 3 634.3MiB allocated; 641ms collecting garbage

Counts

1 → 1

20 → 1

21 → 1

64 → 2

98 → 2

99 → 2

100 → 2

103 → 2

136 → 1

137 → 3

150 → 3

154 → 3

160 → 3

200 → 1

Calls

Call 1

Inputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)

Call 2

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Call 3

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Call 4

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Call 5

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)

Call 6

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)

Outputs

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)

Call 7

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (*.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)

Call 8

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)

Call 9

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Call 10

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Call 11

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (*.f64 phi2 (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Call 12

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Call 13

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))) (*.f64 (sin.f64 lambda1) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)

(*.f64 (acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

(*.f64 (acos.f64 (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)

Call 14

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (*.f64 phi2 phi1) (cos.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (sin.f64 (+.f64 (neg.f64 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda1) phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda1) phi2)))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) #s(approx (+ (* -1 (* phi2 (sin phi1))) (* -1 (* (cos phi1) (cos (- lambda2 lambda1))))) (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1 binary64) (*.f64 phi1 phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 phi2 phi1))) (*.f64 phi2 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 lambda2 lambda1)) (.f64 phi2 phi1))) (*.f64 phi2 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))) (*.f64 phi1 phi2))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (.f64 phi2 phi1) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) #s(approx (* -1 (* (cos phi1) (cos (- lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda2 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))))))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (neg.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) R))
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (-.f64 lambda2 lambda1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (*.f64 phi1 (sin.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 phi2 (-.f64 lambda1 lambda2))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (/.f64 (+.f64 (cos.f64 (+.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1))) (cos.f64 (-.f64 (+.f64 phi1 (PI.f64)) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda2 (-.f64 lambda1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2)) (sin.f64 (+.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) phi2))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (-.f64 (-.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) (+.f64 (+.f64 (.f64 phi2 phi1) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (neg.f64 #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 #s(approx ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda2 lambda1))))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi1))) #s(literal 1/2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda2 lambda1)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))) (.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (/ (+ (sin (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1))) (sin (+ (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 phi1)))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 #s(approx (- (+ (neg phi1) (* 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 phi1))))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 #s(approx (+ (+ (neg phi1) ( 1/2 (PI))) (- lambda2 lambda1)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1)) (sin.f64 (+.f64 (-.f64 lambda1 (-.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi1))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 #s(approx (- lambda2 lambda1) lambda2)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 #s(literal 884279719003555/562949953421312 binary64) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda2 lambda1)) (cos.f64 (neg.f64 lambda1))) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 phi1 (sin.f64 phi2)) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (neg.f64 (cos.f64 phi1))) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (cos.f64 (+.f64 (PI.f64) phi1)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (-.f64 (PI.f64) (-.f64 (PI.f64) (acos.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda1 (-.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (-.f64 lambda2 (-.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(+.f64 (.f64 (PI.f64) R) (.f64 (neg.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) #s(approx ( (cos phi1) (cos (- lambda2 lambda1))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (.f64 (/.f64 #s(literal 1 binary64) lambda2) lambda1) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (PI.f64))) (PI.f64)) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2)) lambda2)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) R)
(.f64 (-.f64 (PI.f64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))))) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (.f64 (cos.f64 phi1) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(approx ( (cos lambda2) (cos lambda1)) (cos.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda1 (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (sin lambda2) (sin lambda1)) (.f64 lambda2 (sin.f64 lambda1))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos (- lambda2 lambda1)) (cos phi2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))) (*.f64 (sin.f64 lambda1) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (/.f64 (+.f64 (+.f64 (.f64 (sin.f64 (neg.f64 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 lambda2 lambda1))))) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 lambda2 lambda1)))) #s(literal 2 binary64))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin lambda2) (sin lambda1)) (* (cos lambda2) (cos lambda1)))) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 (PI.f64))) (.f64 (sin.f64 phi1) (sin.f64 (PI.f64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1))) (.f64 (+.f64 (sin.f64 lambda2) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (-.f64 (PI.f64) (acos.f64 (-.f64 (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) #s(literal 1 binary64))) (cos.f64 lambda1)))))) R)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (+.f64 (.f64 (sin.f64 lambda2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 lambda2)))) #s(literal 2 binary64))) (cos.f64 lambda1)))))) R)
(.f64 (/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) (+.f64 (PI.f64) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1)))) (-.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))) R)
(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (acos.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (PI.f64) (acos.f64 #s(approx (- ( (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))))))) R)
(.f64 (/.f64 (-.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (-.f64 (PI.f64) (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (- (* (neg (cos phi1)) (* (cos (- lambda2 lambda1)) (cos phi2))) (* (sin phi2) (sin phi1))) (neg.f64 (+.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1))))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (-.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) (pow.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (PI.f64) (PI.f64)) (+.f64 (.f64 (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (PI.f64) (acos.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)
(.f64 (-.f64 (PI.f64) (/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (asin.f64 (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))) R)
(.f64 (/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (.f64 (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (+.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))) R)

Outputs

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))))) R)

Calls

79 calls:

90.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
89.0ms	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
63.0ms	phi2
62.0ms	lambda1
62.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))

Results

Accuracy	Segments	Branch
1.9%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
1.9%	1	`phi1`
1.9%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
1.9%	1	`R`
1.9%	1	`lambda1`
1.9%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
1.9%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
1.9%	1	`phi2`
1.9%	1	`(-.f64 lambda1 lambda2)`
1.9%	1	`lambda2`
24.7%	1	`phi1`
24.7%	1	`(-.f64 lambda1 lambda2)`
24.7%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
24.7%	1	`R`
24.7%	1	`lambda2`
24.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
24.7%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
24.7%	1	`lambda1`
24.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
24.7%	1	`phi2`
39.1%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
39.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
39.1%	1	`lambda1`
39.1%	1	`lambda2`
39.1%	1	`(-.f64 lambda1 lambda2)`
39.1%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
39.1%	1	`R`
39.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
39.1%	1	`phi2`
39.1%	1	`phi1`
55.6%	2	`phi1`
55.6%	2	`phi2`
43.3%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
43.3%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
45.9%	2	`lambda2`
55.6%	2	`phi1`
55.7%	2	`phi2`
45.6%	2	`lambda1`
56.8%	2	`lambda2`
62.0%	2	`lambda1`
71.3%	2	`lambda1`
57.4%	4	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
71.3%	2	`lambda1`
62.0%	3	`phi1`
51.7%	1	`(-.f64 lambda1 lambda2)`
57.0%	3	`(cos.f64 (-.f64 lambda1 lambda2))`
57.4%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
57.4%	4	`R`
71.1%	2	`lambda2`
64.9%	4	`phi2`
57.4%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
71.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
71.2%	1	`lambda2`
71.2%	1	`lambda1`
71.2%	1	`phi1`
81.7%	3	`phi1`
71.2%	1	`phi2`
83.6%	3	`phi2`
84.2%	3	`phi2`
71.2%	1	`(-.f64 lambda1 lambda2)`
82.1%	3	`phi1`
71.2%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
71.2%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
71.2%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
71.2%	1	`R`
78.3%	4	`lambda1`
75.6%	3	`lambda2`
71.2%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
84.2%	3	`phi2`
92.8%	1	`(-.f64 lambda1 lambda2)`
92.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
92.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
92.8%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
92.8%	1	`(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)`
92.8%	1	`R`
92.8%	1	`lambda1`
92.8%	1	`lambda2`
92.8%	1	`phi1`
92.8%	1	`phi2`

Compiler

Compiled 9 042 to 2 141 computations (76.3% saved)

bsearch157.0ms (1.2%)

Memory

20.1MiB live, 193.8MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
70.0ms	1067076694008009300.0	17450200317272418000.0
79.0ms	-0.002991634720829173	-3.6335670550909613e-13

Samples

111.0ms	207×	1	valid
10.0ms	56×	0	valid
4.0ms	3×	3	valid
3.0ms	6×	2	valid

Compiler

Compiled 928 to 794 computations (14.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 116.0ms

ival-cos: 53.0ms (45.8% of total)

ival-sin: 27.0ms (23.3% of total)

ival-mult!: 14.0ms (12.1% of total)

ival-acos: 10.0ms (8.6% of total)

adjust: 9.0ms (7.8% of total)

ival-sub!: 1.0ms (0.9% of total)

ival-add!: 1.0ms (0.9% of total)

bsearch4.0ms (0.0%)

Memory

10.0MiB live, 10.0MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1067076694008009300.0	17450200317272418000.0
2.0ms	-0.002991634720829173	-3.6335670550909613e-13

Compiler

Compiled 872 to 773 computations (11.4% saved)

bsearch72.0ms (0.5%)

Memory

-5.1MiB live, 127.3MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
64.0ms	0.002719381927825355	887.341205710661
2.0ms	-0.002991634720829173	-3.6335670550909613e-13

Samples

48.0ms	109×	1	valid
8.0ms	32×	0	valid
1.0ms	3×	2	valid

Compiler

Compiled 1 257 to 1 051 computations (16.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 51.0ms

ival-cos: 19.0ms (37.1% of total)

ival-sin: 12.0ms (23.4% of total)

adjust: 7.0ms (13.7% of total)

ival-mult!: 6.0ms (11.7% of total)

ival-acos: 5.0ms (9.8% of total)

ival-sub!: 1.0ms (2.0% of total)

ival-add!: 1.0ms (2.0% of total)

bsearch165.0ms (1.2%)

Memory

50.6MiB live, 906.5MiB allocated; 47ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
101.0ms	3.1429277061365823e-6	3836658423139.7036
55.0ms	-4.94020896754958	-0.16215219109766607

Samples

130.0ms	226×	1	valid
8.0ms	41×	0	valid
3.0ms	3×	3	valid
1.0ms	2×	2	valid

Compiler

Compiled 1 127 to 943 computations (16.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 126.0ms

ival-cos: 60.0ms (47.8% of total)

ival-sin: 31.0ms (24.7% of total)

ival-acos: 12.0ms (9.6% of total)

adjust: 11.0ms (8.8% of total)

ival-mult!: 9.0ms (7.2% of total)

ival-sub!: 1.0ms (0.8% of total)

ival-add!: 1.0ms (0.8% of total)

bsearch81.0ms (0.6%)

Memory

-11.9MiB live, 168.5MiB allocated; 16ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
75.0ms	-0.002161323150184405	-2.007257777258589e-10

Samples

62.0ms	117×	1	valid
4.0ms	25×	0	valid
1.0ms	2×	2	valid

Compiler

Compiled 481 to 430 computations (10.6% saved)

Precisions

Click to see histograms. Total time spent on operations: 62.0ms

ival-cos: 21.0ms (34.1% of total)

ival-sin: 16.0ms (26.0% of total)

adjust: 13.0ms (21.1% of total)

ival-mult!: 5.0ms (8.1% of total)

ival-acos: 4.0ms (6.5% of total)

ival-sub!: 1.0ms (1.6% of total)

ival-add!: 1.0ms (1.6% of total)

bsearch2.0ms (0.0%)

Memory

5.5MiB live, 5.5MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-0.002161323150184405	-2.007257777258589e-10

Compiler

Compiled 535 to 466 computations (12.9% saved)

bsearch2.0ms (0.0%)

Memory

5.6MiB live, 5.7MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-0.002161323150184405	-2.007257777258589e-10

Compiler

Compiled 580 to 493 computations (15.0% saved)

bsearch27.0ms (0.2%)

Memory

8.2MiB live, 50.5MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
25.0ms	3.2650893975020305e-7	4.019429956192662e-7

Samples

21.0ms	40×	1	valid
2.0ms	8×	0	valid

Compiler

Compiled 223 to 175 computations (21.5% saved)

Precisions

Click to see histograms. Total time spent on operations: 21.0ms

ival-cos: 7.0ms (33.5% of total)

ival-mult!: 5.0ms (23.9% of total)

ival-sin: 5.0ms (23.9% of total)

adjust: 2.0ms (9.6% of total)

ival-acos: 1.0ms (4.8% of total)

ival-sub!: 0.0ms (0.0% of total)

ival-add!: 0.0ms (0.0% of total)

bsearch27.0ms (0.2%)

Memory

5.2MiB live, 48.7MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
25.0ms	-4.94020896754958	-0.16215219109766607

Samples

17.0ms	41×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 491 to 375 computations (23.6% saved)

Precisions

Click to see histograms. Total time spent on operations: 16.0ms

ival-cos: 7.0ms (43.9% of total)

ival-sin: 4.0ms (25.1% of total)

adjust: 2.0ms (12.6% of total)

ival-mult!: 2.0ms (12.6% of total)

ival-acos: 2.0ms (12.6% of total)

ival-sub!: 0.0ms (0.0% of total)

ival-add!: 0.0ms (0.0% of total)

derivations91.0ms (0.7%)

Memory

-13.3MiB live, 120.7MiB allocated; 35ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 851 to 155 computations (81.8% saved)

preprocess184.0ms (1.4%)

Memory: 9.8MiB live, 427.0MiB allocated; 31ms collecting garbage
Compiler: Compiled 5 736 to 2 938 computations (48.8% saved)

end0.0ms (0.0%)

Memory: 0.0MiB live, 0.0MiB allocated; 0ms collecting garbage

start0.0ms (0.0%)

analyze800.0ms (5.9%)

sample4.1s (30.0%)

preprocess38.0ms (0.3%)

sample0.0ms (0.0%)

series75.0ms (0.6%)

rewrite140.0ms (1.0%)

eval59.0ms (0.4%)

prune47.0ms (0.3%)

sample0.0ms (0.0%)

series206.0ms (1.5%)

rewrite783.0ms (5.8%)

eval153.0ms (1.1%)

prune111.0ms (0.8%)

sample0.0ms (0.0%)

series206.0ms (1.5%)

rewrite211.0ms (1.6%)

eval162.0ms (1.2%)

prune126.0ms (0.9%)

sample0.0ms (0.0%)

series2.6s (19.4%)

rewrite214.0ms (1.6%)

eval157.0ms (1.2%)

prune168.0ms (1.2%)

regimes2.4s (17.8%)

bsearch157.0ms (1.2%)

bsearch4.0ms (0.0%)

bsearch72.0ms (0.5%)

bsearch165.0ms (1.2%)

bsearch81.0ms (0.6%)

bsearch2.0ms (0.0%)

bsearch2.0ms (0.0%)

bsearch27.0ms (0.2%)

bsearch27.0ms (0.2%)

derivations91.0ms (0.7%)

preprocess184.0ms (1.4%)

end0.0ms (0.0%)

Profiling